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This  report  describes  a  computer  program  that  will  model  the  takeoff  and  landmg  performance  of  aircraft  The  program  » 
written  in  MKrosoff^  FORTRAN  for  execution  on  an  IBM-compatible  personal  computet  nmning  with  DOS  3.3  or  better 
Models  of  lift  coefficient,  drag  coeffktent,  gross  thrust,  propulsive  drag,  and  fuel  flow  within  user-provided  subroutines  are 
required.  The  simulated  aircraft  can  be  jet  or  propeller  powered,  however,  thrust  must  be  passed  from  the  usa-provided 
subroutine.  The  intent  of  this  handbook  is  to  provide  a  guide  to  the  programmer  and  operator  of  this  program  as  well  as  to 
document  the  equidions  and  assumptions  used  in  the  program.  This  piogram  was  ad^ited  from  the  NASA  t^eoff  and  landing 
program  documented  in  NASA  Technical  Memorandum  X.622,333,  (1973).  This  Air  Force  version  of  the  program  has  been 
made  to  suit  dK  needs  of  test  and  evaluation  while  Ae  NASA  program  served  as  a  design  tool. 
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BACKGROUND 


This  handbook  describes  a  general  purpose  computer  program  that  will  simulate  die  perfwmance 
characteristics  of  aircraft  takeoffs  and  landings.  This  program  has  been  adapted  from  the  original  NASA 
Ames  TOLAND  program  and  documented  in  NASA  Technical  Memorandum  X.62,333  (Refoence  1). 
This  origiiud  was  written  in  FORTRAN  IV  in  1973  as  a  design  tool  by  Jeff  Bowles  and  Thomas  Galloway. 
It  was  later  modified  by  Dave  Nesst  and  Wayne  Olson  circa  1979  to  simulate  refused  takeoffs  and  rolling 
minimum  interval  takMfb  (MITOs),  Reference  2.  In  1980,  the  modified  version  was  first  used  for 
performance  simulation  and  flight  test  standardization  on  the  F-ISC  flight  test  program  and  by  the  F-16A 
to  landing  performance  tests  in  1982. 

Because  the  tnigina]  NASA  TOLAND  was  originally  programmed  as  a  design  tool,  it  did  not  fully  suit  the 
needs  of  the  fli^t  test  comnuinity.  Program  inputs,  such  as  desired  rate  of  climb,  were  needed  as  outputs; 
and  inogram  outputs,  such  as  flare  initiation  height,  were  needed  as  inputs  in  a  flight  test  oriented  program. 
The  original  program  ran  on  a  large  mainframe  computer.  As  the  engineers  moved  their  flight  test  data 
processing  to  personal  conqniters  and  workstations,  a  need  was  established  to  move  the  TOLAND  program 
also.  This  new  program  has  been  completely  rewritten  to  meet  these  flight  test  requirements,  l^hiile  the 
ovoall  methods  of  numerical  integration  and  the  equations  of  motion  have  remained  the  same,  the  source 
code  is  all  new. 


Background 


1 


INTRODUCTION 


This  document  describes  the  inputs,  the  equations  and  computational  techniques  used,  the  subroutines  and 
the  main  program  developed  to  simulate  the  takeoff,  landing  and  refused  takeoff  maneuvers  of  a  given 
aircraft  The  program  can  simulate  talreofis,  continued  takeoffs  (with  engine  failure),  refused  takeoffs,  and 
landings,  and  can  be  applied  to  conventional,  thrust  vectored  and  powered  lift  aircraft.  This  documentation 
describes  die  internal  {Hogram  subroutines,  the  namelist  inputs,  the  equations  and  the  computational 
techniques  used. 


The  aircraft  is  treated  as  a  point  mass  confined  to  motion  in  a  vertical  plane;  the  rotational  dynamics  have 
been  neglected.  This  simplification  requires  an  estimation  of  the  angular  rates  and  precludes  the  use  of  this 
program  as  a  tool  to  evaluate  minimum  control  speeds.  These  angular  rates  are  ^proximated  by  a  finite 
difference  form  or  input  by  the  user  as  commanded  rmes. 


The  user  is  required  to  provide  at  least  two  subroutines  which  pass  lift  coefficient  (Cl),  drag  coefficient 
(Cd),  net  thrust  (Fn),  and  fuel  flow  (Wr  /dt).  If  random  access  curve  files  are  used  for  aerodynamic  or 
engine  data,  the  initialization  subroutine  (INICURV)  must  be  provided.  Additional  subroutines  may  be 
modified  by  the  user  for  ground  effect,  engine  transients,  coefficient  of  friction  (p),  fliq)  retraction,  gear 
retraction,  pitch  control,  spoiler  control,  and  thrust  vectoring. 


Detailed  descriptions  of  the  program  inputs  are  provided  in  the  Namelist  Description  section  and  program 
ouQiuts  in  the  Ouqiut  Description  section  of  this  document.  The  program  subroutines  and  functions  are 
explained  in  the  Subroutine  Description  section  of  this  document.  Detailed  descriptions  of  the  program 
variables  contained  in  common  blocks  are  provided  in  the  Common  Block  Description  section.  The 
equations  of  motion  used  in  the  program  are  shown  in  Appendix  A.  Generic  examples  of  all  these 
sutnoutines  are  provided  with  the  source  code  in  Appendix  B. 


2  Introduction 


tASMOm 

Hl»  mkmitf  mmmmm  m  ArtAti  mao  tom  b«iic  Mfmww:  gronad  rcdl  and  rooiioo.  liftirfr  and  initial 

T1|a  i>aaa- petal  aaMMta  poiawt  raQ  la  ttaailaiad  ai  a  uaer  ipactfied  power  lettiat,  angle  of  attack  and  flap 
tMfimnem.  At  tm  tomtm  tpaad  (VKIOTAT).  tlw  aagk  of  attack  (ALPHA)  it  increaaed  linearly  wiife  time 
at  mo  ifoaaiMiadad  aa^  of  aaaefc  rant  (DADTCMD)  uanl  the  podi  attinide  (THTROT)  is  teaefaed.  If  the 
pNch  MMada  w  laaehod  bridle  tdloff  (brioie  hft  and  die  vertical  component  of  thrust  is  grerier  than  the 
Merad  waighix  dM  yewad  red  »  coatMuad  uanl  bftoff  oocm  or  uadi  the  takeoff  ground  roll  tiine  limit 
(feOIXMAX)  m  maelMl 

Dunay  the  aabwaa  wynaad  of  dM  luaalapoa.  fltghipath  coairol  u  obtained  by  coniroUing  two  dynamic 
vanaMaa  dunag  lacb  aaagrauoa  nap  accrieraooa  along  the  (bghtpath  (FPACXEL)  and  pitch  attitude 
(TNETaF).  Thaaa  "nneblai  an  coatroliad  by  modutarng  angle  of  attack  (ALPHA).  If  the  flightpath 
a^ahOTPoa  riepa  to  has  dtna  aati.  or  the  pach  amtade  csceeds  the  masimum  pitch  atitude  (THTMAX), 
the  aigfa  of  anck  a  raducad  The  angk  of  atark  will  coadaue  lo  be  teihiced  undi  all  these  constraints  are 
taaafbdor  wiandWfaiaofclaBbdropsbriowmro  The  stmtladoa  will  terminate  with  an  error  message  if 
the  nm  ot  chaib  drape  below 

Once  da  laairi  tegaani  ctanb  ahaade  (HCUMB)  n  reached,  the  sunulaion  switches  from  tracking  a 
eonaiani  paeh  aaarii  (THTCU4)  to  vadtng  a  ooasdwt  calibraied  airspeed  (VCLMOUT)-  Once  the 
chmbcMi  almuda  fHCLMOt/T)  a  reached,  the  irinuladon  switches  from  tracking  a  constant  calilvated 
nnpnri  to  vacluag  da  constant  pach  segaaot  climb  gridiem  attitude  (THTFLY).  These  pitch  changes  are 
patfrmaad  a  coanaandad  angle  of  ritack  rate  (DADTCMD)  umil  the  pitch  angle  is  captured  within  the 
pack  aypa  tolar atca  (THTTOL).  However,  the  liinoladoo  will  terminate  if  the  maximum  aldtude 
(NMAX),  iha  ari  anpaad  (VKEND).  the  tune  limit  (TIMEMAX).  or  the  ground  distance  limit 
(DfSTMAX).  a  raachad  first  Table  I  shows  da  tracking  variable  (which  variable  the  simuladon  is  trying 
to  aaach)  and  ahitudi  raages  for  oeb  atiborta  segaant  of  the  ddeeoff  maneuver. 

Tina,  ground  datatce.  and  airspeed  are  provided  when  the  aircraft  reaches  rotadon  speed  and  lifts  off  to 
da  aaaeat  laagiation  step  siae  daa  (DTME)  second,  and  reaches  the  clearance  height  (HGLEAR). 


Triile  1 

TAKEOFF  TRACKING  VARIABLES 


Traddnc  Variable 

FORTRAN  Name 

Aldtude  Range 

Pitch  Angle 

THTCLM 

0-HCLIMB 

CetatM  Anpeed 

Calibrated  Airspeed 

VCLMOUT 

HCLIMB-  HCLMOUT 

Coaatnat  Pitch  Ancle 

Pitch  Angle 

THTFLY 

HCLMOUT-  HMAX 

The  ’'aormai  mode"  for  a  takeoff  is: 

HCUMBsHMAX  =>SOFtet 
HCLMOinr  >50feet 

in  which  case  da  program  never  executes  the  first  or  second  segments  of  the  climbout. 
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LANDINGS 


The  landing  mamuvo'  is  divided  into  four  basic  segments:  S9[»t>ach,  flare,  transition,  and  landing  ground 
roll.  A  steady-state  i^>proach  is  initiated  using  one  of  two  mediods.  In  one  method,  the  landing  approach  is 
simulated  at  the  angle  of  attack  and  net  thrust  required  for  zero  acceleration  along  and  normal  to  the 
flightpath,  e.g.  at  an  input  constant  calibrated  airspeed.  Using  the  other  method,  the  landing  ^proach  is 
simulated  at  the  calibrt^  airspeed  and  net  thrust  required  for  zero  acceleration  along  and  nonnal  to  the 
flightpath,  e.g.  at  an  input  angle  of  attack.  These  values  for  angle  of  attack  ot  calibrated  airspeed  and  net 
thrust  are  calculated  in  subroutine  STEDYST  using  inputs  of  angle  of  attack  (ALPHA)  or  approach  speed 
(VKAPP),  and  flightpath  angle  (GAMMAPP).  The  approach  starts  at  the  obstacle  clearance  altitude, 
(HCLEAR)  and  ends  at  the  flare  altitude  (HFLARE). 

At  the  flare  altitude,  a  pull-up  is  simulated  at  a  normal  load  factor  calculated  based  on  a  circular  arc 
trajectory  and  the  thrust  is  changed  from  the  steady-state  condition  to  idle.  This  trajectory  is  defined  by  the 
ap{noach  flightpath  angle  (GAMMAPP),  the  sink  rate  at  touchdown  (SINKTD),  and  the  rqiproach  speed, 
(VKAPP).  Because  airspeed  can  change  during  the  flare,  touchdown  airspeed  is  not  an  input  variable. 
Table  2  shows  the  tracking  variables  and  altitude  ranges  for  the  various  segments  of  the  landing  maneuver. 


Table  2 

LANDING  TRACKING  VARIABLES 


1 

Tracking  Variable 

Altitude  Range 

Approach 

Flightpath  Angle  and 
either  Angle  of  Attack 
or  Calibrated  Airspeed 

HCLEAR -HFLARE 

Flare 

Sink  Rate  at  Touchdown 

HFLARE-0 

Transition 

Pilch  Angle 

0 

Ground  Roll 

Not  Applicable 

0 

After  touchdovm,  aerobraldng  can  be  accomplished  by  pitching  the  aircraft  to  the  angle  of  attack  for 
aerobraking  (AOAABRK),  and  then  achieving  a  three-point  attitude  after  reaching  the  minimum  speed  for 
aerobraldng  (VKABRK).  The  angle  of  attack  for  a  three-point  attitude  is  defined  by  the  constant 
(AOA3PT).  Pitch  changes  are  simulated  at  a  constant  rate  (DADTCMD)  the  commanded  alpha  rate. 

During  the  landing  ground  roll,  the  simulation  coasts  the  aircraft  to  the  Wheel  Brake  Airspeed 
(VKBRAKE).  In  addition,  individual  time  delays  can  be  set  for  brake  application  (TIMEBRK),  flap 
retraction  initiation  (TIMEFLP),  thrust  reverser  deployment  initiation  (TIMEREV),  speedbrake  deployment 
initiation  (TIMESBK)  and  spoiler  deployment  initiation  (TIMESPL). 


4  Landings 


REFUSED  TAKEOFFS 


The  refused  takeoff  maneuver  is  identical  to  the  takeoff  maneuvo-  wiA  the  following  excq>tions.  An  engine 
Mure  is  simulated  at  the  eqgine  Mure  speed  (VKPAIL).  The  engine  Mure  q>eed  must  be  less  than  the 
liftoff  speed.  After  a  time  delay  from  ei^ine  Mure  (TEMEIDL),  the  simulation  initiates  the  reduction  of 
thrust  on  the  remaining  engines  to  idle.  After  a  time  delay  from  engine  Mure  (TIMEBRK),  the  simulation 
applies  brakes  by  changing  the  current  coefficient  of  fiiction  (XMU)  from  the  rolling  coefficient  of  fiiction 
(ROLLMU)  to  tte  Iwaking  coefficient  of  friction  (BRAKMU).  If  the  rotation  speed  has  been  reached,  the 
simulation  will  either  return  the  angle  of  attack  to  zoo  or  change  the  angle  of  attack  to  the  angle  of  attack 
for  aoobraking  (AOAABRK).  The  angle  of  attack  for  aerobraking  will  be  used  for  calibrated  airspeeds 
above  the  aerobrake  limit  airspeed  (VKABRK).  Changes  in  angle  of  attack  are  nuule  at  the  commanded 
angle  of  attack  rate  (DADTCMD).  The  minimum  control  groundspeed  (VKMCG),  can  be  used  as  a  trigger 
speed  to  adjust  engine  thrust  if  desired.  The  (VKMCG)  variable  might  be  used  to  trigger  the  variable 
XENG  to  be  changed  to  XENG  +  1,  on  a  four-migine  aircraft  poforming  a  diree-engiiie  takeoff.  Two 
engines  would  be  used  from  brake  release  to  the  ground  minimum  control  speed  and  then  changed  to  three 
engines  above  that  speed.  This  option  was  used  on  die  B-IB  TOLAND  program  to  aid  in  developing  a 
ditee-engine  takeoff  ci^iabili^  and  is  an  uncommon  use  of  the  program. 

Wheel  braking  can  also  be  initiated  at  the  wheel  brake  airspeed  (VKBRAKE).  In  addition,  individual  time 
delays  can  be  set  fw  flap  retraction  initiation  (TDVffiFLP),  dnust  levoser  deployment  initiation 
(TIMEREV),  speedbrake  deployment  initiation  (TIMESBK)  and  spoiler  deployment  initiation  (TIMESPL). 

Engine  Mures  can  be  simulated  with  one  of  three  methods.  The  simplest  method  is  an  abupt  engine 
Mure  where  the  thrust  loss  is  instantaneous.  This  is  acconqilished  by  setting  the  engine  Mure  mode 
(FAILMOD)  to  ‘SEIZE’  and  the  delta  time  to  engine  failure  (DTFAIL).  These  are  the  default  settings  for 
the  program.  The  second  method  is  a  linear  loss  of  thrust  over  a  time  interval.  This  is  accomplished  by 
setting  the  engine  Mure  mode  (FAILMOD)  to  ‘SPOOL’  and  the  delta  time  to  engine  Mure  (DTFAIL)  to 
desired  value  in  seconds. 

The  third  method  is  a  loss  of  thrust  using  a  user-provided  subroutine  SPOOLDNF.  This  is  accomplished  by 
setting  the  engine  Mure  mode  (FAILMOD)  to  ‘SPOOL’  and  the  delta  time  to  engine  failure  (DTFAIL)  to 
0.0.  Subroutine  SPOOLDNF  might  consist  of  a  curve  or  set  of  curves  or  an  exponential  equation  or  set 
of  exponential  equations.  A  set  of  curves  or  a  set  of  equations  might  be  used  to  distinguish  between 
differmt  failure  stales  and  different  initial  thrust  levels.  SPOOLDNF  is  used  to  the  qiool  down  of  the 
Med  engine  whereas  an  additional  and  identical  subroutine,  SPOOLDNR,  is  used  to  to  spool  down  of 
to  remaining  engines. 

Different  curves  might  be  needed  to  simulate  a  Mure  to  idle  thrust  and  a  Mure  to  off.  The  failure  state 
(FAILST)  would  be  used  to  distinguish  between  to  different  curves.  Different  curves  might  be  needed  if 
an  engine  Mute  started  from  military  thrust  or  maximum  continuous  thrust  instead  of  maximum  thrust  or 
takeoff  rated  thrust  The  power  co^  (PWRCODE),  engine  group  (EN(jGRP)  or  engine  multiplicative 
factor  (XENG)  variables  could  be  used  to  accomplish  these  simulation  variations. 

Engine  failures  occurring  in  different  positions  can  be  simulated  using  to  engine  failure  group  (FAILGRP) 
variable.  This  would  allow  different  engine  curve  lookups  to  an  outboard  engine  inoperative  or  an  inboard 
engine  inoperative.  This  variable  is  user-definable. 
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CONnNUED  TAKEOFFS 


The  continued  takeoff  maneuver  is  identical  to  the  takeoff  maneuvor  with  the  following  exceptions.  An 
engine  fiilure  occurs  at  the  engine  failure  speed  (VKFAIL).  The  engine  failure  q)eed  must  be  less  than  die 
liftoff  speed.  The  minimum  control  groundspeed  (VKMCG)  can  be  used  as  a  trigger  qieed  to  adjuA  engine 
thrust  if  desired.  The  VKMCG  variable  might  be  used  to  trigger  the  variable  XENG  to  be  changed  to 
XENG  +  1  on  a  four-engine  aircraft  performing  a  three-engine  takeoff.  Two  engines  would  be  used  from 
brake  release  to  the  ground  minimum  control  speed  and  then  changed  to  three  engines  above  diat  speed. 
This  option  was  used  on  the  B-IB  TOLAND  program  to  aid  in  developing  a  tfaree-engioe  takeoff  ci^i^nlity 
and  is  an  uncommon  use  of  the  program. 

Engine  failures  can  be  simulated  widi  one  of  three  methods.  The  sioqilest  method  is  an  abnqK  engine 
failure  n^iere  the  dmist  loss  is  instantaneous.  This  is  accomplished  by  setting  the  ragine  failure  mode 
(FAILMOD)  to  *SE1ZR*  and  the  delta  tune  for  engine  failure  (DTFAIL).  These  are  the  default  settings  for 
die  program.  The  second  method  is  a  linear  loss  of  thrust  over  a  time  interval.  This  is  accomplidied  by 
setting  the  engine  failure  mode  (FAILMOD)  to  ‘SPOOL’  and  the  delta  time  for  engine  failure  (DTFAIL)  to 
desired  value  in  seconds. 

The  third  method  is  a  loss  of  thrust  using  a  user-provided  subroutine  SPOOLDNF.  This  is  accomplished  by 
setting  the  engine  failure  mode  (FAILMOD)  to  ‘SPOOL’  and  the  delta  time  for  engine  failure  (DITAIL)  to 
0.0.  Subroutine  SP(X)LDNF  might  consist  of  a  curve  or  set  of  curves  or  an  exponential  equation  set  of 
exponential  equations.  A  set  of  curves  or  a  set  of  equations  might  be  used  to  distinguish  between  different 
failure  states  ^  different  initial  thrust  levels.  SPOOLDNF  is  used  for  the  spool  down  of  die  failed  engine 
whereas  an  additional  and  identical  subroutine,  SPOOLDNR,  is  used  for  die  qiool  down  of  the  remaining 
engines.  SPCXDLDNR  would  not  be  executed  for  a  continued  takeoff. 

Different  curves  mi^t  be  needed  to  simulate  a  failure  to  idle  thrust  and  a  failure  to  off.  The  failure  state 
(FAILST)  would  be  used  to  distinguish  between  die  different  curves.  Different  curves  mi^t  be  needed  if 
an  engine  failure  started  from  military  thrust  or  maximum  continuous  thrust  instead  of  maximum  thrust  or 
takeoff  rated  thrust  The  power  co^  (PWRCODE),  engine  group  (ENGGRP)  or  engine  multiplicative 
factor  (XENG)  variables  could  be  used  to  accomplish  these  simulation  variatimis. 

Engine  failures  occurring  in  different  positions  can  be  simultUed  using  the  engine  failure  group  (FAILGRP) 
variable.  This  would  allow  different  engine  curve  lookups  for  an  outboard  engine  inoperative  or  an  inboard 
engine  inoperative.  This  variable  is  user-definable. 


6  Continued  Takeoffs 


NAMELIST  DESCRIPnONS 


This  secdon  describes  die  namelists  and  variables  for  input  to  the  T(H.AND  program.  Namelist  DATA  is 
used  for  the  primary  aircraft  program  iiqnhs  whereas  namelists  TKO  and  LND  are  used  for  the  primary 
inputs  to  takeoff  and  landing  maneuvers  respectivdy.  Namelist  RCL  is  used  for  the  primvy  inputs  to  the 
(Iterating  ground  roU  s^ment  of  a  refused  takeoff  or  a  landing  maneuver.  Namelists  DAT^  TK02, 
LND2  and  ROL2  are  used  for  secondary  or  auxilitfy  inputs.  These  namelists  are  used  to  separate  the 
primary  inputs  from  the  secondary  inputs  for  ease  of  use  and  clarity.  These  secondary  iiqiuts  would  contain 
variate  winch  are  used  infiequently  or  not  at  all  by  most  users.  Namelist  TKOARY  is  used  for  inputs  to 
flap  and  dmist  vectoring  schedules  during  a  takeoff  maneuver.  Table  3  indicates  the  required  namelist 
inputs  for  each  maneuver. 


Tables 

NAMELISTS 


Namelist 

Takeoff 

Refused  Takeoff 

Continued  Takeoff 

DATA 

X 

X 

X 

X 

DATA2 

X 

X 

X 

X 

TKO 

X 

X 

X 

TK02 

X 

X 

X 

TKOARY 

X 

X 

X 

LND 

X 

LND2 

X 

ROL 

X 

X 

X 

X 

Namelist  DATA 

CGPCT  is  the  longitudinal  position  of  the  center  of  gravity  as  a  percentage  distance  of  the  mean 
aerodynamic  chord  aft  fixxn  the  leading  edge  of  die  wing.  The  default  for  CGPCT  is  user  defined  in 
sulnoutine  PORCEX.  This  input  is  required  only  if  the  aerodynamics  are  provided  as  a  function  of 
longitudinal  position  of  the  center  of  gravity. 

DADTCMD  is  the  commanded  angle  of  attack  rate.  It  is  the  rate  at  which  die  aircraft  rotates  during  die 
takeoff  maneuver.  DADTCMD  affects  the  rate  of  convergence  to  target  pitch  attitudes  and  target  airspeeds. 
The  default  for  DADTCMD  is  25  degrees  per  second. 

DTEMPF  is  the  delta  temperature  fiom  standard  day  in  degrees  Fahrenheit  The  default  for  DTEMPF  is 
0.0  degree  Fahrenheit 

FLAP  is  the  current  flap  deflection  in  degrees  during  program  execution.  The  defoult  for  FLAP  is 
•l.Odegree.  This  default  value  allows  FLAP  to  be  set  from  FLPPCT.  FLAP  is  a  required  input  if  FLPPCT 
is  not  used. 

GAMMARW  is  the  slope  of  the  runway  in  degrees.  The  defluilt  for  GAMMARW  is  0.0  degree. 

GWTO  is  die  initial  gross  weight  in  pounds.  GWTO  is  a  requited  variable;  there  is  no  default 
HCLEAR  is  the  obstacle  clearance  height  in  feet  The  default  for  HCLEAR  is  SO.O  feet 
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HRUNWAYisthepiessarealtitiideoftberuowayinfeet  The  defiuilt  for  HRUNWAY  is  0.0  feet 


VKWIND  is  the  headwind  coniXMient  of  wind  speed  in  knots.  Tailwinds  are  input  using  negative  headwind 
conqxments.  The  defoult  is  0.0  knot  (no  wind). 

NaiiielistDATA2 

AOA3PT  is  a  angle  of  attack  for  a  3-point  attitude  in  degrees.  The  default  for  AOA3PT  is  0.0.  This 
variable  is  not  required. 

CONFIG  is  a  number  representing  the  configuration  of  the  aircraft  This  floating  point  variable  is  a  user 
definaUe  input  This  variable  is  not  required. 

DCDX  is  die  user  drag  coefficient  incranent  The  user  may  alter  the  drag  coefficient  (CD)  by  adding  or 
subtracting  a  delta  drag  coefficient  increment  The  defoult  for  DCDX  is  0.0000. 

DCLX  is  the  user  lift  coefficient  increment  The  user  may  alter  die  lift  coefficient  (CL)  by  adding  or 
subtracting  a  delta  lift  coefficient  incmnent  The  default  for  DCLX  is  0.0000. 

DTFAIL  is  the  delta  time  fw  the  foiled  engine  to  lose  dmist  by  the  thrust  level  defined  by  XENGFLD. 
Thrust  and  fuel  flow  decrease  lineariy  over  the  time  interval  DTFAIL.  The  defoult  for  DTFAIL  is 
0.0  second. 

DTIME  is  the  Runge-Kutta  numerical  integration  stq>  size  in  seconds.  The  defoult  for  DTIME  is 
0.10  secrnid.  This  variable  controls  die  accuracy  of  the  integrated  variables. 

ENGGRP  is  the  operating  engine  group.  It  is  a  user  definable  three-character  string  variable  whose 
contents  define  which  engines  are  operating  during  a  maneuver.  Examples  of  ENGGRP  are  'AEO',  'OET, 
lET,  and  'AET  which  correspond  to  all  engines  operating,  outboard  engine  inopoadve,  inboard  engine 
inoperative  and  all  engines  idling  respectively.  The  default  for  ENGGRP  is  'AEO'  for  all  takeoffi  and  'AEI' 
for  all  landings. 

EPR  is  engine  pressure  ratio.  This  parameter  can  opitionally  be  used  to  input  engine  thrust  levels  to  the 
program  or  can  be  used  as  a  variable  which  contains  the  current  value  of  Engine  Pressure  Ratio.  The 
defoult  for  EPR  is  0.0. 

FAILGRP  is  the  foil  engine  groiqi.  It  is  a  user  definable  three-character  string  variable  whose  contents 
define  die  state  of  the  engines  after  an  engine  foilure  or  failures.  The  default  for  FAILGRP  is  'OET,  an 
outboard  engine  inoperative. 

FAILMOD  is  die  engine  foilure  mode.  It  is  a  five-character  string  variable  whose  contents  define  the  mode 
of  die  foiled  engine.  Usually,  only  two  states  are  used,  'SEIZE'  and  'SPOOL'.  The  default  for  FAILMOD  is 
•SEIZE'. 


FAELST  is  the  engine  foilure  state.  It  is  a  four-character  string  variable  whose  contents  define  the  state  of 
die  failed  engine.  Usually,  only  two  stales  are  used,  IDLE'  and  'OFF  ',  however,  for  aircraft  with 
afterburners  the  state  'MIL  '  is  available.  These  states  are  quantified  by  the  variables  XIDLE,  0.0,  and 
XMIL,  reflectively.  The  values  of  XIDLE  ami  XMIL  are  initialized  in  subroutine  FORCEX.  The  default 
fOTFAILSTislDLE'. 
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PGFCT  is  the  gross  thrust  percentage  increment  The  user  may  increase  the  net  thrust  by  a  given  percentage 
using  this  input  variable.  The  default  for  FGPCT  is  0.0  percent  For  example,  with  FGPCT  set  to  -3.S,  die 
variable  THRUST  is  multiplied  by  0.96S. 

FLPPCT  is  the  current  flap  percentage  setting  during  (xogram  execution.  This  variable  provides  the  user  an 
additional  method  of  entering  flap  deflection  into  the  progranL  The  default  is  user  defined  in  subroutine 
PORCEX.  For  example,  HJTCT  could  be  set  to  50.0.  The  user  would  provide  a  method  of  initializing  the 
FLAP  variable  to  the  corresponding  value  for  50  percent  flaps.  This  variable  is  not  required. 

FLT  is  the  flight  nuniber.  It  is  a  floating  point  variable  available  to  die  user  for  management  and  tracking  of 
data.  The  default  for  FLT  is  0.0.  This  variable  is  not  required. 

FLTNDX  is  the  flight  index.  This  floating  point  vuiable  is  a  user  definable  input  It  is  not  passed  through 
any  |»ogram  supplied  ctmimon  blocks.  This  variable  is  not  required. 

IDBUG  is  die  UFTAS  debug  code.  It  can  provide  debug  information  concerning  die  UFTAS  random 
access  curve  file  subroutines.  The  default  for  ffiBUG  is  0. 

IDl^UG  is  the  TOLAND  debug  code.  This  code  is  user  definable;  it  can  be  used  to  output  debug  data 
fitrni  the  user  provided  subroutines.  Two  values  for  JDEBUG  are  already  used  within  the  {vogram. 
JDEBUG  =  9999  for  full  debug  output  and  JDEBUG  =  6666  for  special  laiiding  and  ground  roll  debug 
output  for  refused  takeoffs.  The  default  for  JDEBUG  is  0. 

LOADING  is  a  number  rqiresenting  the  external  store  loading  of  the  aircraft  This  integer  variable  is  a  user 
definable  input  This  vari^le  is  not  required. 

LUMSG  is  die  logical  unit  for  message  output  It  is  an  integer  variable  which  determines  which  file  certain 
program  messages  are  written  to.  The  messages  dial  can  be  re-routed  come  from  the  debug  ouqiut  as  well 
as  UFTAS  random  access  curve  file  subroutines.  The  default  for  LUMSG  is  LUOUT. 

PWRCODE  is  the  aircraft  power  code.  It  can  describe  the  thrust  settings  to  which  all  the  aircraft  engines 
are  set  The  default  for  Pl^CODE  is  user  defined  in  sutmutine  FORCEX. 

RC  is  the  engine  thrust  rating  code.  It  can  describe  the  thrust  setting  to  which  an  engine  deck  or  a 
curve  file  based  on  an  engine  deck  is  set  during  a  simulation.  The  default  for  RC  is  user  defined  in 
subroutine  FORCEX. 

REVFLAG  is  the  reverse  thrust  flag.  This  flag  is  set  to  .TRUE,  when  reverse  thrust  is  to  be  enabled  for  a 
simulation.  The  default  for  REVFLAG  is  .FALSE 

ROLLMU  is  the  tolling  coefficient  of  friction.  The  default  for  ROLLMU  is  0.025  and  is  based  on 
MILC-00501  IB.  (References) 

SPDBRKO  is  the  initial  speed  brake  deflection  in  degrees.  The  default  Ah’  SPDBRKO  is  0.0. 

THRCRV  is  die  thrust  curve  type.  It  is  a  three-character  input  variable  that  is  used  to  describe  die  type  of 
Thrust  Curve  to  be  utilized.  This  input  variable  allows  the  program  to  distinguish  between  Thrust  Curves 
containing  different  independent  (Input)  variables.  Examples  of  THRCnV  ate  RC,  (rating  code),  PLA, 
(power  lever  angle)  and  EPR',  (engine  pressure  ratio).  The  default  for  THRCRV  is  user  defined  in 
subroutine  FORCEX. 

VKMCG  is  the  minimum  control  airspeed  on  the  ground.  It  is  an  input  variable  used  to  trigger  a  spoolup  of 
an  operating  but  asymmetric  engine.  For  example,  it  would  be  used  in  the  case  of  a  three-engine  takeoff  of 
a  four-engine  aircraft  whose  nose  wheel  steering  vras  not  sufficient  to  maintain  directional  control  with  full 
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or  partial  asynunetric  dmist  VKMCG  is  not  used  to  fail  an  engiiie;  use  VKFAIL.  The  default  for  VKMCXj 
is  0.0  knot  calibrated  airspeed. 

XENG  is  die  engine  multiplicative  factor.  Total  engine  parameteis  (e.g.  net  thrust,  foel  flow)  are  defined  by 
their  corresponding  per  engine  values  multiplied  by  X^G.  This  variable  is  not  an  integer  variable  and  is 
not  the  nuniber  of  engines.  It  is  a  floating  point  variable  that  is  used  with  qiS  enrine  values  of  thrust  and 
fuel  flow.  This  allows  the  program  to  represent  values  of  partial  engine  thrust  to  transition  fit>m  one  thrust 
setting  to  another.  The  def^t  for  XENG  is  user  defined  in  subroutine  FORCEX. 

XENGFLD  is  the  failed  engines  multiplicative  factor.  This  variable  is  not  an  integer  variable  aixl  is  not  die 
number  of  failed  engines.  It  is  a  floating  point  variable  that  is  used  with  ssi  engiire  values  of  thrust  and  fuel 
flow.  This  allows  the  program  to  rqiresent  engine  values  of  a  partial  failed  engine  (e.g.  afterburner).  If 
XENGFLD  is  not  equ^  to  1.0,  FAH^  must  be  set  to  NULL'.  FAILST  overrides  XENGFLD.  The 
default  fm  XENGFLD  is  1 .0. 
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Namelist  TKO 


HGEAR  is  landing  gear  retraction  height  in  feet  above  the  takeoff  point  The  default  for  HGEAR  is 
205  feet 

HMAX  is  die  termination  height  limit  in  feet  above  the  takeoff  point  for  the  takeoff  simulation.  The 
simulation  will  end  if  this  limit  is  reached.  The  default  for  HMAX  is  1000  feet 

THTCLM  is  the  pitch  attitude  the  simulation  tracks  after  liftoff  but  before  reaching  HCLIMB  feet  altitude 
above  the  takeoff  point  The  default  for  THTCLM  is  10  degrees. 

THTROT  is  the  pitch  attitude  the  simulation  tracks  after  rotation  but  before  liftoff.  In  genoal,  the  aircraft 
will  liftoff  beftne  reaching  THTROT  and  will  continue  to  rotate  to  THTCLM.  The  default  for  THTROT  is 
10  degrees. 

VKFAE.  is  the  engine  failure  air^ieed  in  knots.  The  default  for  VKFAIL  is  0.0  knot  calibrated  airspeed 
which  b  defined  as  no  engine  failure. 

VKROTAT  is  the  rotatitm  air^)eed  in  knots.  The  default  for  VKROTAT  is  0.0  knot  calibrated  airspeed. 
The  simulation  will  rotate  die  aircraft  widiout  regard  to  actual  aircraft  horizontal  tail  authority;  TOLAND 
does  not  define  moments  about  the  aircraft  center  of  gravity. 

Namelist  TK02 

DISTMAX  is  ground  distance  limit  for  the  takeoff  simulation.  The  simulation  will  end  if  diis  limit  is 
reached.  The  default  for  DISTMAX  is  60.760  feet,  or  ten  nautical  miles. 

HCLIMB  is  the  height  in  feet  above  die  takeoff  point  at  which  the  takeoff  simulation  switches  from  tracking 
a  constant  pitch  attitude  (THTCLM)  to  tracking  a  constant  calibrated  airsqieed  (VCLMOUT).  The  default 
for  HCLIMB  is  100  feet 

HCLMOUT  is  die  height  in  feet  above  the  takeoff  point  at  wiiich  the  takeoff  simulation  switches  from 
tracking  a  constant  calibrated  airspeed  (VCLMOUT)  to  tracking  a  constant  pitch  attitude  (THTFLY).  The 
default  for  HCLMOUT  is  200  feet 

ROLLMAX  is  the  takeoff  ground  roll  time  limit  The  simulation  will  end  if  this  limit  is  reached.  The 
default  for  ROLLMAX  is  120  seconds. 

THTFLY  is  the  pitch  attitude  the  simulation  tracks  after  reaching  HCLMOUT  feet  altitude  above  the 
takeoff  point  The  default  for  THTFLY  is  8  degrees. 

THTTOL  is  the  pitch  attitude  tolerance  the  simulation  tracks  to.  The  simulation  tracks  to  the  target  pitch 
angle  within  plus  or  minus  THTTOL  degrees;  after  which  no  pitch  adjustment  is  made.  The  default  for 
THTTOL  is  0.10  degree. 

TIMEMAX  is  the  time  limit  for  the  takeoff  simulation.  The  simulation  will  end  if  this  limit  is  reached.  The 
default  for  TIMEMAX  is  3(X)  seconds. 

TKOTYPE  is  die  takeoff  type.  It  is  a  seven  character  input  variable  that  is  used  to  describe  the  type  of 
takeoff  as  either  'STATIC  or  'ROLLING'.  This  input  variable  allows  the  program  to  distinguish  between 
the  thrust  settings  of  either  a  static  or  rolling  takeoff  independendy  of  the  VKSTART  input  variable.  The 
default  for  TKOTYPE  is  STATIC. 
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VCLMOUT  is  the  calibrated  airspeed  (in  knots)  the  simulation  tracks  after  reaching  HCLIMB  feet  altitude 
above  the  takeoff  point  but  before  reaching  HCLMOUT  feet  altitude  above  the  takeoff  point  The  default 
for  VCLMOUT  is  the  calibrated  airspeed  reached  at  HCLIMB  feet  altitude  above  the  takeoff  point. 

VKEND  is  the  simulation  end  airspeed  in  knots.  The  default  for  VKEND  is  2S0  knots  calibrated  airspeed. 

VKFLAP  is  the  calibrated  airspeed  at  which  the  fit^js  are  retracted.  The  default  for  VKFLAP  is  the  flap 
limit  airspeed,  VKFLPMX.  Ihe  flap  limit  airspeed,  VKFLPMX,  is  a  hard  coded  value  user  defined  in 
subroutine  TXXAERO'. 

VKSTART  is  the  simulation  start  groundspeed  in  knots.  This  input  variable  allows  the  user  to  simulate 
takeofh  where  there  is  a  given  groundspeed  at  the  time  the  aircraft  is  aligned  on  the  centerline  of  the 
runway.  For  example,  rolling  minimum  interval  takeoffs  (MTTOs)  frequently  roll  onto  the  centerline  of  the 
runway  without  stopping.  The  default  for  VKSTART  is  0.0  knot 
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Namelist  TKO ARY 


This  namelist  contains  parameters  that  are  not  required. 

FLPARY  is  the  flap  deflection  array.  This  array  contains  five  elements.  This  anay  allows  the  user  to  enter 
in  a  flap  deflection  schedule  as  a  function  of  calibrated  airspeed.  At  each  airspeed  contained  in  the  flap 
deflection  airspeed  array  (VFLPARY),  the  takeoff  simulation  changes  the  fl^  deflection,  FLAP,  to  the 
corre^nding  flap  deflection  contained  in  the  flap  deflection  array  (FLPARY)  at  a  rate  of  DFLAPDT 
degrees  per  second.  The  flap  deflection  rate  (DFLAPDT)  is  provid^  by  subroutine  TXXAERO'  which  is 
the  user  provided  subroutine  called  by  subroutine  FORG^.  If  the  last  element  of  FLPARY  is  not  0.0,  the 
simulation  will  retract  the  flaps  to  0.0  degree  at  dtt  calibrated  airspeed  contained  in  the  last  element  of 
VFLPARY  or  at  VKFLPMX  which  ever  is  less.  The  default  tor  the  elements  of  FLPARY  a,e  0.0, 0.0, 0.0, 
0.0,  0.0.  At  fliis  defuilt  setting,  the  takeoff  simulation  does  not  change  die  fhqi  deflection  until  the  flap 
retraction  speed  (VKFLAP)  or  the  maximum  fliqi  deflection  airspeed  (VKFLPMX)  is  reached. 

VFLPARY  is  die  flap  deflection  airqieed  array.  This  array  contains  five  elements.  This  array  allows  the 
user  to  enter  in  a  flap' deflection  schedule  as  a  Action  of  calibrated  airspeed.  At  each  airspeed  contained  in 
die  flap  deflection  airspeed  array  (VFLPAR'Y)  the  takeoff  simulation  changes  the  flap  deflection  (FLAP)  to 
the  corresponding  flap  deflection  contained  in  the  flap  deflection  array  (FLPARY)  at  a  rate  of  DFLAPDT 
degrees  pa  second.  The  flqi  deflection  rate  (DFLAPDT)  is  provided  by  subroutine  FXXAERO*  which  is 
the  user  {novided  subroutine  called  by  subroutine  FORCEX.  If  die  last  element  of  FLPARY  is  not  0.0,  die 
simulation  will  retract  die  flaps  to  0.0  degree  at  the  calibrated  airqieed  contained  in  the  last  element  of 
VFLPARY  oi  at  VKFLPMX  which  ever  is  less.  The  default  for  the  elements  of  VFLPARY  are  0.0,  0.0, 
0.0, 0.0, 0.0.  At  this  default  setting,  die  takeoff  simulation  does  not  change  the  flap  deflection  until  the  flap 
retraction  speed  (VKFLAP)  or  the  maximum  flap  deflection  airspeed  (VKFLPMX)  is  reached. 

HVCTARY  is  the  vectored  dmist  altitude  array.  This  array  contains  five  elonents.  At  each  altitude 
contained  in  die  vectored  dmist  altitude  array,  HVCTARY,  the  takeoff  simulation  changes  the  vectored 
thrust  angle  (VTANGLE),  to  the  corresponding  vectored  thrust  angle  contained  in  the  vectored  thrust  angle 
array  (XNUARY)  at  a  rate  of  D'VECTDT  degrees  per  second.  The  vectored  thrust  angle  rate  (DVECTDT) 
is  provided  by  subroutine  FXXENG’  which  is  die  user  provided  subroutine  called  by  subroutine  FORCEX. 
If  bodi  the  HVCTARY  and  WCTARY  arrays  are  uUd,  the  HVCTARY  array  ^es  precedence.  The 
default  for  the  elements  of  HVCTARY  are  0.0,  0.0,  0.0,  0.0,  0.0.  At  this  default  setting,  die  takeoff 
simulation  does  not  change  the  vectmed  thrust  angle. 

VVCTARY  is  the  vectored  thrust  airspeed  array.  This  array  contains  five  elements.  At  each  calibrated 
airspeed  contained  in  the  vectored  dirust  airspeed  array  (VVCTARY)  the  takeoff  simulation  changes  the 
vectored  thrust  angle  (VTANGLE)  to  the  cone^nding  vectored  thrust  angle  contained  in  the  vectored 
dirust  angle  array  (XNUARY)  at  a  rate  of  DVECIDT  degrees  per  second.  The  vectored  thrust  angle  rate 
(DVECTDT)  is  provided  by  subroutine  FXXENG'  which  is  the  user  provided  subroutine  called  by 
subroutine  FORCEX.  If  both  the  HVCTARY  arul  VVCTARY  arrays  are  u^,  the  HVCTARY  array  takes 
precedence.  The  default  for  the  elements  of  'WCTARY  are  0.0, 0.0, 0.0, 0.0, 0.0.  At  this  default  setting, 
the  takeoff  simulation  does  not  change  the  vectmed  dirust  angle. 

XNUARY  is  the  vectored  thrust  angle  array.  This  array  contains  five  elements.  At  each  altitude  contained 
in  the  vectored  thrust  altitude  array  (HVCTARY)  or  at  each  calibrated  airspeed  contained  in  the  vectored 
thrust  airqieed  array  (WCTARY)  the  takeoff  simulation  changes  the  vectored  thrust  angle  (VTANGLE)  to 
the  corresponding  vectored  thrust  angle  contained  in  the  vectored  thrust  angle  array  (XNUARY)  at  a  rate  of 
D'VECTDT  degrees  per  second.  The  vectored  dirust  angle  rate  (DVECTDT)  is  provided  by  subroutine 
FXXENG'  which  is  the  user  provided  subroutine  called  by  subroutine  FORC^.  If  both  the  HVCTARY 
and  WCTARY  arrays  are  u^,  the  HVCTARY  array  takes  precedence.  The  default  for  the  elements  of 
WCTARY  are  0.0,  0.0,  0.0,  0.0,  0.0.  At  this  default  setting,  the  takeoff  simulation  does  not  change  the 
vectored  thrust  angle. 
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Namelist  LND 


ALPHA  is  die  angle  of  attack  in  degrees  during  approach.  The  program  will  determine  the  calibrated 
airspeed  (VKAPP)  for  the  approach  if  ALPHA  is  ii^ut  ALPHA  or  VKAPP  are  required  variables;  diere 
are  no  defiuilts. 

GAMMAPP  is  the  flightpath  angle  in  degrees  (negative  for  a  descent)  during  approach.  The  default  for 
GAMMAPP  is  -3.0  degrees  (descending). 

HFLASE  is  the  height  in  feet  above  the  touchdown  point  of  the  runway  at  which  the  simulation  initiates  a 
flare.  The  default  for  HFLARE  is  0.0  feet  (no  flare). 

SINKTD  is  the  sink  rate  at  touchdown.  The  default  for  SINKTD  is  10.0  feet  per  second. 

VKAPP  is  the  calibrated  airspeed  in  knots  during  the  approach.  The  program  will  determine  the  angle  of 
attack  (ALPHA)  for  the  iqiproach  if  VKAPP  is  input  VKAPP  or  ALPHA  are  required  variables;  there  are 
no  defaults. 

Namelist  LND2 

OTDTMX  is  the  maximum  pitch  rate  during  the  flare  simulation  in  degrees  per  second.  The  default  for 
DTDTMX  is  user  defined  in  subroutine  FORCEX. 

SPLFLAG  is  the  spoiler  flag.  The  flag  is  set  to  .TRUE,  to  initialize  the  simulation  with  the  spoilers 
deployed.  The  default  for  SPLFLAG  is  PALSE.  (spoilers  retracted). 

WRlTlTk  is  the  write  flare  iterations  flag.  This  flag  is  set  to  .TRUE,  when  the  user  desires  output  on  each 
flare  iteration  executed  from  subroutine  FLARENZ.  The  default  for  WRITITR  is  .FALSE. 
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BRAKMU  is  the  braking  coefficient  of  friction.  This  input  parameter  would  be  used  if  the  braking 
coefficient  selector  (IMU)  is  set  to  0  (corresponding  to  a  constant  BRAKMU).  The  default  for  BRAKMU 
is  0.250. 

IMU  is  the  braking  coefficient  selector.  The  default  selections  for  IMU  are  constant  braking  coefficient 
(BRAKMU),  0;  user  supplied  curve  file  lookup,  1;  generic  dry  runway  braking  coefficient,  2;  and  generic 
wet  runway  braking  coefficient,  3.  The  default  for  IMU  is  0,  which  corresponds  to  a  constant  braking 
coefficient  of  friction.  For  IMU=1,  BRAKMU  might  be  looked  up  as  a  function  of  wei^t  on  wheels, 
groundspeed  and  runway  condition  reading  (RCR).  The  default  for  BRAKMU  is  0.250. 

RCR  is  the  runway  condition  reading.  It  can  be  used  as  an  input  to  determine  the  variable  BRAKMU.  The 
default  for  RCR  is  user  defined  in  subroutine  GENMU. 

Namelist  ROL2 

AOAABRK  is  the  angle  of  attack  for  aerobraking  during  the  landing  ground  roll  if  the  calibrated  airspeed  is 
greater  dian  VKABRK  knots  calibrated  airspeed.  The  default  for  AOAABRK  is  0.0  degree  ,no 
aerobraking). 

BRKFCTR  is  the  braking  factor.  It  is  a  multiplicative  factor  applied  to  BRAKMU,  the  braking  coefficient 
of  friction.  It  allows  the  user  to  adjust  the  coefficient  of  friction  during  braking  without  recompiling  code. 
This  input  parameter  would  normally  be  used  if  the  braking  coefficient  selector  (IMU)  was  not  set  to  0. 
The  default  for  BRKFCTR  is  1.0. 

TIMEBRK  IS  the  braking  time  delay  in  seconds  between  the  time  touchdown  has  occurred  and  the  time 
die  brakes  are  applied  for  a  landing  maneuver.  It  is  also  the  braking  time  delay  between  die  time  an  engine 
has  failed  and  the  time  the  brakes  are  applied  for  a  refused  takeoff  maneuver.  The  default  for  TIMEBRK  is 
3.0  seconds. 

TIMEFLP  is  the  flap  retraction  time  delay  in  seconds  between  the  time  touchdown  has  occurred  and  the 
time  die  flap  retraction  initiation  has  occurred  retracting  for  a  landing  maneuver.  It  is  also  the  flap 
retraction  time  delay  between  the  time  an  engine  has  failed  and  the  time  the  flap  retraction  initiation 
has  occurred  for  a  refused  takeoff.  The  default  for  TIMEFLP  is  999.0  seconds;  essentially  the  flaps  are 
not  retracted. 

TIMEIDL  is  the  idle  thrust  spool  down  time  delay  in  seconds  between  the  time  an  engine  has  foiled  and  the 
time  a  spool  down  to  idle  has  been  initiated  on  die  remaining  engine(s)  for  a  refused  takeoff.  This 
parameter  has  no  effect  during  a  landing  because  the  engines  ...  ^  in  idle  during  the  flare.  The  default  for 
TIMEIDL  is  3.0  seconds. 

TIMEREV  is  the  reverse  thrust  time  delay  in  seconds  between  the  time  touchdown  has  occurred  and  the 
time  the  thrust  reverser  deployment  initiation  has  occurred  for  a  landing  maneuver,  it  is  also  the  reverse 
thrust  time  delay  between  Ae  time  the  remaining  engine(s)  has  spooled  down  to  idle  and  the  time  the  thrust 
reverser  deployment  initiation  has  occurred  for  a  refused  takeoff  maneuver.  The  default  for  TIMEREV  is 
0.0  second. 

TIMESBK  is  the  speedbrake  deployment  time  delay  in  seconds  between  the  time  touchdown  has  occurred 
and  the  time  the  speedbrake  deployment  initiation  has  occurred  for  a  landing  maneuver.  It  is  also  the 
speedbrake  time  delay  between  ^  an  engine  has  failed  and  the  time  the  speedbrake  depi  ^ment  initiation 
has  occurred  for  a  refused  talreoff  maneuver.  The  default  for  TIMESBK  is  0.0  second. 
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T1MESPL  IS  file  ipoito  dqiloymem  tune  deity  in  seconds  between  the  time  toudidown  has  occurred  and 
die  tune  the  ipoiier  depioymeiit  iaitiatioa  has  occurred  for  a  landing  maneuver.  It  is  also  the  spoiler  tune 
delay  between  die  an  cngue  has  failed  and  the  time  die  spoiler  deployment  initiation  has  occurred  for  a 
takeoff  ouneuvcr  The  default  for  TTMESPL  is  0.0  second. 

VKABRK  is  the  calibrated  ampeed  during  the  landmg  ground  roll  that  aerobraking  is  stopped  and 
dw  angle  of  attack  (which  u  the  same  as  pitch  angle  during  the  ground  roll)  is  lowered  from  AOAABRK  to 
00  degree.  The  defauh  for  VKABRK  u  0.0  knot  calibrated  airspeed  (no  aerobraking). 

VKBRAKE  IS  the  wheel  braking  atrspeed  in  knots.  Wheel  braking  is  initiated  after  the  calibrated  airspeed 
IS  less  than  VKBRAKE.  The  default  for  VKBRAKE  is  999.0  knots  calibrated  airspeed. 
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OUTPUT  DESCRIPTIONS 

This  section  describes  the  ou^t  provided  by  the  TOLAND  program. 

Takeoff  and  Continued  Takeoff  Output 

For  each  set  of  namelist  inputs  provided,  the  program  echoes  many  of  die  input  variables  back  to  die  output 
file.  Then  the  core  of  the  program  ouqmt  is  written.  This  core  consists  of  the  following  vari^les  listed  in  a 
table  from  left  to  right  elapsed  time  (TIME),  ground  distance  (GDIST),  gross  wei^t  (GWT),  altitude 
above  ground  level  (HAGL),  knots  calibrated  airqieed  (VKCAS),  knots  true  aiiqieed  (VKTAS),  knots  true 
groundspeed  (VKTGS),  acceleration  along  flightpath  tx  ground  track  (FPACXTEL  or  ACXIEL),  lift 
coefficient  (CL),  drag  coefficient  (CD),  pitch  attitude  (THETAF),  angle  of  attack  (ALPHA),  fli^tpatfa 
angle  (GAMMA),  time  rate  of  change  of  angle  of  attack  (DADT),  rate  of  climb  (ROQ,  normal  load 
factor  (XLF),  net  thrust  (THRUST),  and  the  engine  multiplicative  factor  (XENG).  The  core  data  is 
rqieated  once  every  10  DTIME  seconds.  However  at  rotation,  liftoff,  and  the  obstacle  clearance  height  die 
dm  is  also  listed. 

After  the  core  ouQiut  is  written,  summary  information  about  the  takeoff  is  output  This  summary 
infiHmation  consists  of  flight  number  (FLT),  initial  gross  wei^t  (GWTO),  user  drag  coefficient  incremmt 
(DCDX),  net  thrust  percentage  increment  (FGPCT),  ground  minimum  control  airspeed  (VKMCG),  miginal 
flq>  setting  (FLAPO),  delta  ten^ierature  from  standard  day  (DTEMPF),  user  lift  coefficient  increment 
(DCLX),  the  failure  state  (FAILST),  and  the  operating  engine  groiqi  (ENGGRP). 

Reftised  Takeoff  Ou4>ut 

The  ou^ut  for  refused  takeoffs  is  identical  to  dut  for  takeoffs  and  continued  takeoffs  with  the  following 
exception:  the  coefficient  of  fiiction  (XMU),  is  substituted  for  the  engine  multiplicative  factor  (XENG), 
during  die  decelerating  portion  of  die  ground  roll. 

I^niHng  Output 

The  core  ou^wt  for  landings  is  identical  to  that  for  takeoffs  and  continued  takeoffs  with  the  following 
exceptions:  die  time  rate  of  change  in  pitch  attitude  (DTDT),  is  substituted  for  the  time  rate  of  change  in 
angle  of  attack  (DADT),  during  the  ^proach  and  flare  portion  of  the  landing;  and  the  coefficient  of  friction 
(XMU),  is  substituted  for  the  engine  multiplicative  factor  (XENG),  during  die  decelerating  portion  of  the 
landing  ground  roll. 

After  die  core  output  is  written,  summary  information  about  die  landing  is  output  This  summary 

information  consists 
of  the  distance  over 
an  HCLEAR  foot 
obstacle,  air  distance, 
ground  roll  distance, 
pre-flare  distance, 
flare  distance,  and 
average  deceleration. 
Figure  1  defines 
these  distances  for 
a  landing  with  the 
obstacle  clearance 
height  (H(XEAR), 
greater  than  the  flare 

Figure  1  Low  Flare  Landing  Distance  Definitimis  height  (HFLARE);  a 

low  flare  landing. 
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Figure  2  defines  these  distances  for  a  landing  wids  the  obstacle  clearanc  -;  height  (HCUEAR),  less  than  the 
flare  hei^t  (HFLARE);  a  high  flare  landing.  In  addition,  flight  number  (FLT),  user  drag  coefficient 
inctement  (DC33X),  delta  temperature  from  standard  day  (DTBMPF),  braking  multiplicative  factor 
(BRKFCTR),  user  lift  coefficient  increment  (DCLX).  and  original  flap  setting  FLAPO)  are  dso  output 
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PROGRAM  STRUCTURE 

Tliis  section  describes  the  stnictural  layout  of  the  TOLAND  program. 

All  execution  begins  and  ends  with  the  main  program.  Namelist  inputs  are  read  and  parameter  initialization 
are  pofmned  first  Curve  file  initialization  is  dien  performed  (if  applicable).  Program  execution  then 
branches  to  one  of  two  control  subroutines,  TAKOFF  or  LANDNG,  as  shown  in  Figure  3.  For  takeofiEs, 
refused  takeofEs  or  continued  takeoffs,  execution  branches  to  subroutine  TAKOTF.  For  landings,  execution 
branches  to  subroutine  LANDNG. 
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Figures  Takeoff  and  Landing  Program  Structural  Layout 


Control  is  passed  to  subroutine  TAKOFF  for  takeofEs  and  to  subroutine  LANDNG  for  landings.  Control  is 
first  passed  to  subitHitine  TAKOFF  fm  refused  takeofEs,  until  engine  failure  when  control  is  passed  to 
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subroutine  RC^LL.  After  the  maneuver  is  complete,  program  execution  returns  to  tbe  main  program.  The 
main  program  tiien  eitiier  reads  another  set  of  namelist  inputs  or  terminates  execution. 

Within  subroutine  LANDNG,  program  execution  passes  to  sutvoutine  STEDYST  to  determine  tbe  steady- 
state  conditions  for  tbe  landing  approach.  After  that  is  accomplished,  program  executimt  is  passed  to 
subroutine  FLARENZ,  vdiere  die  constant  normal  load  factor  for  the  flare  (if  any)  is  determined  through 
multiple  calls  to  subroutine  FLARE.  Program  execution  then  passes  to  suInxMitine  APPROCH  (if  the 
obstacle  clearance  hei^t  (HCLEAR)  is  greater  than  the  flare  initiation  height  (HFLARE))  or  subroutine 
FLARE  (if  dw  obstacle  clearance  hdght  (HCLEAR)  is  less  than  or  equal  to  die  flare  initiation  height 
(HFLARE)).  After  touchdown,  program  execution  passes  to  subroutine  ROLL  until  the  end  of  the  ground 
roll.  Program  execution  then  passes  back  to  sulntMitine  LANDNG  and  then  to  the  main  program.  The  main 
program  either  reads  another  set  of  namelist  inputs  at  terminates  execution. 

Runge-Kutta  numerical  integration  is  performed  from  only  subroutines  TAKOFF,  FLARE,  and  ROLL.  The 
integrator  subroutine  INTX  determi^  the  acceleration  from  one  of  equations  of  motion  subroutines, 
DERIVGR,  DERIVAT,  or  DERIVAL.  The  force  coefficients  for  the  equations  of  notion  are  provided  by 
subroutine  FORCEX.  FORCEX  calculates  the  force  coefficients  from  the  lift  and  drag  coefficients 
provided  by  subroutine  ‘FXXAERO’  and  from  thrust  provided  by  subroutine  ‘FXXENG’.  The  associations 
of  these  subroutines  are  shown  in  Figure  4. 


Figure  4  Takeoff  and  Landing  Program  Major  Subroutine  Associations 
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SUBROUTINE  DESCRIPTIONS 

This  section  describes  the  subroutines  and  functions  of  die  TOLAND  program. 

Tabk4 

SUBROUTINE  USAGE 


Subroutine 

Refused  Takeoff 

Continued  Takeoff 

INITIAL 

P 

p 

P 

P 

FRETRAC’ 

P,C 

P.c 

P.C 

P.C 

QRETRAC* 

P,C 

P.C 

pncH 

p 

p 

P 

p 

SPOIL® 

p 

P 

o 

0 

0 

0 

TAKOFF 

p 

p 

p 

LANDNQ 

p 

STEDYST 

p 

FLARENZ* 

p 

APPROCH* 

p.c 

FLARE 

p 

ROLL 

p 

p 

INTX 

p 

p 

p 

p 

p 

p 

p 

p 

DERiVAT 

p 

p 

DERIVAL 

p 

ERROR® 

P,C 

P.C 

HALT 

p 

p 

p 

p 

p 

p 

p 

p 

ITRLND 

p 

DGDT 

p 

DVDT 

p 

DVTDH 

p 

DAOH 

p 

p 

INTERP 

p 

p 

p 

p 

ZEROX 

p 

INiCURV 

u 

U 

u 

u 

FORCEX 

u 

U 

u 

u 

'FXXAERO- 

U 

u 

u 

u 

QEFFECT 

u 

u 

u 

u 

•FXXENG' 

u 

u 

u 

u 

ISPOOLUP’  lU.C  1 

u.c 

U.C 

UxC 

U.C 

U.C 

U.C 

uc 

U.C 

y.c 

1  1 

u.c 

u.c 

C  CtHiditiona] 
execution  of 
subroutine 
O  Optional 
sub-routine— 
not  required 
P  Program  provided 
subroutine 
U  User  provided 
subroutine 


NOTES; 

1.  FRETRACis 
called  only  when 
the  flap  setting  is 
changed. 

2.  GRETRACis 
called  (»ly  when 
gear  is  leuncted. 

3.  SPOIL  is  called 
only  when  the 
spctier  setting  is 
dianged. 

4.  n^ARENZis 
called  when 
HFLARE  is  greater 
tfaanO. 

5.  APPROCHis 
called  when 
HCLEAR  is  greater 
than  HFLARE. 

6.  ERROR  is  called 
when  the  equations  of 
motion  subroutine  is 
unaUetofinda 
solution. 

7.  SPOOLUP. 
SPOOLDNF,  or 
SPOOLDNR  is 
called  when  a 
throttle  transient  is 
performed. 


Table  4  shows  which  subroutines  are  executed  for  which  maneuver.  Conditional  subroutines  are  executed  only 
if  the  certain  conditions  are  met  See  notes  (1-7).  The  optional  subroutine  TVECTOR  is  not  required  if  thrust 
vectoring  is  not  used.  Program  provided  subroutines  are  intended  to  be  used  without  modifications.  User 
provided  subroutines  have  program  supplied  templates  for  easy  modification. 
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User  Provided  Subroutiiies 


Some  of  die  following  subroutines  must  be  modified  for  a  particular  aircraft  For  aircraft  simulations  using 
random  access  curve  files,  subroutine  INICURV  must  be  modified  to  contain  the  architecture  of  die  usct’s 
curves  and  initializes  the  approfviate  arrays  in  common  blocks  VALUES  and  TABLES.  Subroutine 
PORCEX  requires  initializing  certain  aircraft  unique  constants  within  a  DATA  statement  and  using  the 
proper  calling  arguments  in  calls  to  subroutines  ‘FTDfAERO*  and  ‘FXXQfG’ 

SubrtHitine  'FXXAERO*  must  return  lift  coefficient  (Q3,  and  drag  coefficient  (Cd)  to  subroutine  FORCEX. 
At  least  the  lift  coefficient  must  be  a  function  of  angle  of  attack  (a);  this  program  is  angle  of  attack  driven. 
Subroutine  GEFFECT  can  be  used  for  ground  effect  increments  to  the  lift  and  drag  coefficients.  A  sample 
subroutine  is  provided  diat  includes  Dr.  E  K  Parks  increment  equations. 

Sufooutine  ‘FXXENG’  must  return  gross  thrust  (Fq).  propulsive  drag  (Fe),  and  fuel  flow  (Wf  /dt)  to 
sutnoutine  FORCEX.  Sanqiles  of  subroutines  SPOOLDNF,  SPOOLDNR,  and  SPOOLUP  are  provided  as 
guides  to  die  user  ftw  simulating  throtde  transients. 

Subroutine  GENMU  must  return  the  braking  coefficient  (BRAKMU).  A  sample  is  provided  as  a  guide  to 
the  user  showing  a  variety  of  methods  which  produce  braking  coefficient 

Subroutine  INICURV 

This  subroutine  initializes  the  names,  tables  and  value  names  of  the  random  access  curve  files.  This 
subroutine  opens  the  approptiate  curves  as  needed.  This  subroutine  has  no  calling  arguments  and  contains 
common  blocks:  FLAGS,  CHARV,  CINDEX,  RACURV,  VALUES,  and  TABLES. 

Subroutine  FORCEX 

This  subroutine  calculates  the  total  force  coefficients  along  and  normal  to  the  flightpath.  Equations  of 
motion  defining  the  ftxce  coefficients  are  shown  in  Appendix  A.  The  force  coefficients  ate  calculated  with 
the  lift  and  drag  coefficients  supplied  by  sulsoutine  ‘FXXAERO’  and  with  thrust  siqiplied  by  subroutines 
‘FXXENG’,  SPOOLDNF,  SPOOLDNR  and  SPOOLUP. 

Subroutine  FORCEX  should  require  only  the  following  modifications: 

1)  Initialization  of  the  DATA  statement  {noviding  values  for  ATT,  AOA3PT,  AR,  B,  CGPCT, 
CLALPH,  CONHG,  DTDTMX,  FLAP,  FLPPCT,  HZ,  LOADING,  NENG,  PWRCODE, 
RC,  SWING,  THRCRV,  THTMAX,  XIDLE,  and  XLFMAX.  DTDTMX  and  XLFMAX  is 
only  required  for  the  flare  portion  of  landings.  AR,  B,  CLALPH,  and  HZ  are  variables  used 
only  in  determining  ground  effect  increments  to  the  aerodynamic  models.  CONFIG  and 
LOADING  are  optional  user-definable  variables.  PWRCODE,  RC,  and  THRCRV  are  optional 
user-definable  variables  for  distinguishing  power  settings  and  switching  between  difierent 
engine  curves. 

2}  Changing  the  calling  statement  for  subroutines  ‘FXXAERO’  and  ‘FXXENG’  to  the  user 
provided  names  with  die  appropriate  calling  arguments. 

This  subroutine  has  the  calling  arguments:  ALPHA,  CD,  and  CL;  and  contains  common  blocks:  CTRL, 
AIRCRFT,  AERO,  ENGINE,  ARBORN,  AIRSPED,  FLAGS,  and  CHARV. 

Subroutine  'FXXAERO' 

This  subroutine  calculates  or  performs  a  table  lookup  to  determine  die  lift  and  drag  coefficients  f<x  die 
aircraft  This  subroutine  and  its  name  are  provided  by  the  user.  For  example,  this  subroutine  might  be 
called  F22AERO  for  the  F-22.  Tlw  calling  arguments  are  user  defined  but  might  be  ALPHA,  AMACH,  CL, 
CD,  FLAP,  SPOILER,  VKCAS  and  XENGOUT.  The  sulnoutine  might  contain  common  blocks:  CTRL, 
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AIRC3tFT.  AIRSPED.  RUNWAY.  FPINIBG,  ATMOS.  FLAGS.  CXEARV.  RACURV,  VALUES 
and  TABLES. 

Subroutine  GEFFECT 

This  subroutine  siq)plies  die  ground  effect  increments  to  the  aerodynamic  coefficients.  The  generic  subroutine 
provides  predicted  ground  effect  equations  which  can  be  modified  by  the  user  fn  a  particular  aircraft  The 
calling  arguments  are  user  defined  but  might  be  CL.  HAGL,  DCLGE  and  OCDGE.  The  subroutine  might 
contain  common  blocks:  AIRCRFT.  AERO.  CONST,  and  CHARV. 

Subroutine  'FXXENG' 

This  subroutine  calculates  or  performs  a  table  lookup  to  determine  the  net  thrust  and  fuel  flow  for  die  aircraft 
This  subroutine  and  its  name  are  provided  by  the  user.  For  exanqile.  this  subroutine  might  be  called  F22ENG 
for  the  F'22.  The  calling  arguments  are  usm'  d^ned  but  might  be  ALPHA,  AMACH,  PWRCODE,  QS. 
VKCAS,  XENG,  FE.  FG,  THRUST.  WFUEL,  and  EPR.  The  subroutine  might  contain  the  common  blocks: 
CTRL,  VECTOR,  RUNWAY.  FPINTEG,  ATMOS,  CONST,  FLAGS.  CHARV,  RACURV.  VALUES  and 
TABLES. 

Subroutine  SPOOLUP 

This  subroutine  determines  the  ratio  of  thrust  to  takeoff  rated  thrust  during  a  rolling  takeoff  using  subroutine 
TABINT  and  data  array  SPOOLA.  This  is  accomplished  by  passing  the  engine  multiplicative  foctcM’,  XENG, 
back  to  die  calling  sulmutine.  This  subroutine  is  just  an  example  and  does  not  apply  to  all  aircraft  This 
subroutine  has  the  calling  arguments:  ENGNDX,  TIME,  XENGTRN,  XENGO,  SPOOL  and  XENG;  and 
contains  no  common  blocks. 

Subroutine  SPOOLDNF 

This  subroutine  determines  the  engine  multiplicative  factm  for  a  foiled  engine  during  a  throttle  chop  to  idle  or  a 
fuel  cut  using  subroutine  TABINT  and  data  array  SPOOLA.  This  subroutine  is  just  an  example  and  does  not 
apply  to  all  aircraft  This  subroutine  has  the  calling  arguments:  TIME,  XENGEND,  XENGTRN.  SPOOL 
X^G,  and  LUMSG  and  contains  the  common  blodt:  CHARV. 

Subroutine  SFOOLDNR 

This  subroutine  determines  the  engine  multiplicative  factor  for  die  remaining  engines  during  a  throttle  ch<9  to 
idle  or  a  fuel  cut  using  subroutine  TABINT  and  data  array  SPOOLA.  This  subroutine  is  just  an  example  and 
does  not  a(^ly  to  all  aircraft  This  subroutine  has  the  calling  arguments:  TIME,  XENGEND.  XENGTRN. 
SPOOL  X^G,  and  LUMSG  and  contains  the  common  block:  CHARV. 

Subroutine  GENMU 

This  subroutine  provides  the  braking  coefficient  of  friction.  This  subroutine  has  the  calling  arguments: 
VKTGS,  WTML  XMAIN,  XNOSE  and  YCG;  and  contains  the  common  blocks:  CTRL  RUNWAY,  CONST, 
RACURV.  VALUES,  and  TABLES.  The  user  must  provide  values  for  XMAIN,  XNOSE,  and  YCG.  These 
are  all  positive  values  which  cmre^KMid  to  distances  from  the  aircraft's  center  of  gravity.  XMAIN  is  the 
horizontal  distance  from  the  main  gear  to  the  center  of  gravity.  XNOSE  is  the  htnizontal  distance  from  die 
nose  gear  to  the  center  of  gravity.  YCG  is  the  vertical  distance  from  the  ground  to  die  center  of  gravity. 

Program  Subroutiiies 

Subroutine  INITIAL 

This  subrtHitine  initializes  groups  of  variables.  This  subroutine  has  the  calling  arguments:  GROUP,  ALPHA, 
FLAPO,  GWTO,  and  SPDBRKO;  and  contains  common  blocks:  CTRL  AIRCRFT,  AERO,  ENGINE, 
VECTOR,  AIRBORN,  AIRSPED,  RUNWAY,  INTEG,  FPINTEG.  ATMOS,  CONST.  FLAGS.  CHARV, 
FLAPDAT,  GEARDAT,  VECTDAT,  and  RACURV. 
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Sutiroutine  FRETRAC 

This  sutMXMltine  controls  the  fUf)  setting  during  flap  retraction.  This  subroutiiie  has  the  calling  arguments: 
FLAP,  VKFLAP,  and  DFLAPDT;  and  contains  common  blocks:  CTRL,  FLAGS,  and  FLAPDAT. 


Subroutine  GRETRAC 

This  sulnoutine  returns  the  value  of  the  incremental  drag  of  the  landing  gear,  DCDLGR.  The  flag  LGRFLAG 
is  available  to  add  the  incremental  drag  in  subroutine  ‘FXXAERO’.  This  subroutiiie  has  the  calling  arguments: 
DCDLGR,  DTGEAR  and  HAGL;  and  contains  ctxnmon  blocks:  CTRL,  FLAGS,  and  GEARDAT. 


Subroutine  PITCH 

This  subroutine  modulates  angle  of  attack  to  match  an  input  pitch  attitude  or  climb  speed  if  limit  conditions  are 
met  Hie  rate  at  which  an^^e  of  attack  is  increased  is  based  on  normal  load  factor  (XLF)  and  die  commanded 
alfdia  rate  (DADTCMD),  a  user  iiqnit  This  subroutine  has  die  calling  arguments:  MANUVR,  ALPHA, 
DADTCMD,  DTIME,  DTDTGEX,  and  LUOUT;  and  contains  common  blocks:  AIRCRFT,  AIRBORN, 
FPINTEG,  CONST  and  FLAGS. 


Subroutine  SPDBR^ 

This  subroutiiie  controls  speed  brake  deployment  and  retraction.  This  sulvoutiiie  has  the  calling  »guments: 
ACTION,  SPDBRK,  SBKEND,  and  DSBKDT  and  contains  common  blocks:  CTRL  and  FLAGS.  The 
possible  values  for  action  are  ‘RESET,  ‘DEPLOY’,  and  ‘RETRACT. 


Subroutine  SPOIL 

This  subroutine  controls  spoiler  deployment  and  retraction.  This  subroutine  has  the  calling  arguments: 
ACTION,  SPOILER  SPLREND,  a^  DSPLRDT  and  contains  common  blocks:  CTRL  and  FLAGS.  The 
possible  values  for  action  are  ‘RESET,  ‘DEPLOY*,  and  ‘RETRACT. 


Subroutine  TVECTOR 

This  subroutine  controls  the  vectored  thrust  angle  (VTANGLE).  This  subroutine  has  the  calling 
arguments:  VTANGLE,  HVECT,  WECT,  and  DVECTDT;  and  contains  common  blocks:  CTRL,  FLAGS, 
and  VECTDAT. 


Subroutine  TAKOFF 

This  subroutine  controls  the  execution  of  the  takeoff  maneuver  firom  brake  release  through  climb  out. 
Sutnoutine  TAKOFF  calls  INTX  to  perform  numerical  integration  of  the  resultants  of  the  equations  of  motion 
and  calls  FORCEX  to  obtain  the  force  coefficients  for  the  equations  of  motion.  This  subroutine  has  the  calling 
argument'  ALPHA;  and  contains  common  blocks;  CTRL,  AIRCRFT,  AERO,  ENGINE,  AIRBORN, 
AIRSPED,  RUNWAY,  INTEG,  FPINTEG,  ATMOS,  CONST,  FLAGS,  CHARV,  FLAPDAT,  GEARDAT, 
and  VECTDAT. 

SulHOutine  LANDNG 

This  subroutine  controls  the  execution  of  the  landing  maneuver.  LANDNG  calls  STEDYST  to  obtain  required 
values  of  thrust  and  angle  of  attack  for  a  steady-state  approach.  LANDNG  calls  subroutine  FLARENZ  to 
determine  the  normal  load  factor  required  to  execute  a  flare  at  the  desired  sink  rate  at  touchdown.  LANDNG 
call  subroutine  APPROCH  to  execute  an  af^iroach  down  to  the  flare  height  (HFLARE)  if  the  obstacle  clearance 
height  (HCLEAR)  is  greater  than  HFLARE.  LANDING  calls  subroutine  FLARE  to  execute  a  flare  and  calls 
subroutine  ROLL  for  the  ground  portion  of  the  landing.  This  subroutine  has  the  calling  argument:  ALPHA; 
and  contains  common  blocks:  CTRL,  AIRCRFT,  AERO,  ENGINE,  AIRBORN.  AIRSPED,  RUNWAY, 
INTEG,  FPINTEG,  ATMOS,  CONST,  and  FLAGS. 


Subroutine  STEDYST 

This  subroutine  calculates  the  required  values  of  net  thrust  and  angle  of  attack  for  zero  acceleration  along  and 
normal  to  the  flightpath,  dVe  /dt  and  Vcfdy  /dt)  respectively  when  the  flag,  FINDV  is  set  to  .FALSE.  It 
calculates  the  required  values  of  net  thrust  and  calibrated  airspeed  for  zero  acceleration  along  and  normal  to 
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die  fligfaqiadi,  dV,  /dt  and  VcCdy  /dt)  reflectively  when  the  flag,  FINDV  is  aet  to  .TRUE.  Rnding  one 
of  diese  two  sets  of  values  is  aocomplished  by  driving  two  functions  of  two  independent  variables  to 
zero  simultaneously 

fi(FN.a)  =  dV,/dt=0 

g(FN,a)  =  Vefdy/dt)  =0  for  all  non-zero  positive  values  of  Vc  diis  reduces  to 

g(FN,a)  =  (dY/dt)=0 

where:  Fn  is  net  thrust 

a  is  angle  of  attack 
Ve  is  calibrated  airspeed 

dVe/dt  is  the  time  rate  ofchange  of  velocity  along  fli^itpatb 
dy/dt  is  the  time  rate  of  change  of  flightpatfa  angle 

Subroutine  STEDYST  starts  generating  the  locus  of  f(Fn,a.)  =  0  and  gCpH>ot)  =  0,  and  then  searches  for  values 
of  net  dmist  and  angle  of  attack,  or  net  thrust  and  calitnated  airspeed,  which  satisfy  the  intersection  of  the  two 
loci  within  a  tolerance  bound.  The  output  values  of  ast  dmist  and  angle  of  attack,  or  net  thrust  and  calibrated 
airspeed,  are  the  required  values  for  a  sready-state  f^iroach. 
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Figure  S  shows  a  typical  plot  of  the  dVe/dt  and  dy/dt  fiinctioiis,  f  and  g,  respectively.  The  values  (x^  and 
are  the  desired  values  of  angle  of  attack  and  net  thrust  The  upper  bound  on  thiust  is  the  gross  weight  (CV/T) 
divided  by  the  engine  multiplicative  factor  (XENG).  The  search  for  Oi  and  Oj  is  made  on  the  interval  -<1.0  ^  Oi  ^ 
Oam,  i=l^.  The  error  is  then  defined  to  be  the  difference  between  tti  and  02  divided  by  Oi.  Subroutine 
STEDYST  then  varies  the  value  of  net  thrust  until  the  error  is  driven  to  less  than  the  subtxxnine  toierattce,  or  ai  - 
a2  ^  Cf  This  tolerance  value  for  ot,  is  O.OOS  degrees  until  the  number  of  iterations  within  the  subrotnine  exceeds 
25;  then  e,  is  raised  to  0.010  degrees.  The  initial  value  of  angle  of  attack  is  rstimatiwl  based  on  the  lift  coefficieiu 
where  lift  equals  gross  weight  The  initial  value  of  net  thrust  is  estimated  to  be  1.06  times  the  sum  of  the  drag  at 
the  initial  angle  of  attack  and  the  excess  dirust  (net  thrust).  Net  thrust  is  varied  each  iteration,  until  bounded,  by  the 
following  equation:  =  F|^/1.QS.  Making  this  initial  1.1  times  the  net  thrust  prevents  die  program  searching  in 

areas  where  no  solution  to  dV,/dt  =  0  exists.  For  finding  calibrated  airspeed  the  process  is  identical.  Calibrated 
airqieed  is  substituted  for  an^e  of  attack.  However,  the  tolerance  value  for  Vc,  e,,  is  0.001  knot  until  the  number 
of  iterations  within  the  subroutine  exceeds  25;  then  Ci  is  raised  to  O.OOS  knot 
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Sul»x>utine  STEDYST  has  calling  arguments:  ALPHA,  FPVTAS,  GAMMAR,  and  FINDV;  and  contains 
conunon  blocks:  CTRL,  AIRCRFT,  AERO,  ENGINE,  ATMOS,  CONST  and  FLAGS.  The  mechanization  of 
subroutine  STEDYST  for  determining  THRUST  and  ALPHA  is  as  follows.  The  outer  loop  varies  THRUST, 
vdiile  the  two  inner  loops  vary  ALPHA  from  ALPHMX  to  -  ALPHMX.  For  a  fixed  value  of  THRUST  (outer 
loop),  functions  DVDT  (acceleration  along  the  flightpath)  and  DGDT  (acceleration  normal  to  the  flightpath), 
are  called  with  the  values  of  ALPHA  (inner  loops).  These  two  functions  call  sutmiutine  FORCEX.  Subroutine 
ITRLND  and  function  2EROX  are  both  zero  finders  called  from  STEDYST.  Once  the  values  of  net  thrust  are 
bounded,  function  ZEROX  locates  die  values  within  the  boundaries  to  within  a  specified  tolerance.  The 
mlerance  for  net  thrust  is  based  on  0.1  percent  of  the  aircraft  gross  weight,  or 
S  pounds,  whichever  is  greater. 

The  loop  containing  the  call  to  ITRLND  is  exited  successfully  when  search  status  variable,  JFLAG,  is  set 
internally  by  the  subroutine  to  3,  or  when  the  magnitude  of  the  error  is  less  than  the  tolerance  value 
(TOLRNCE).  Variable  JCOUNT  stores  the  number  of  iterations  which  is  limited  to  2S. 
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Subroutiiie  FLARENZ 

This  subroutiiie  detennines  the  mxmal  load  factor,  Ox,  of  the  flare  maneuvo'.  Subroutiiie  FLARENZ  caUs 
FLARE  at  various  normal  load  factors  until  the  sink  rate  at  touchdown  (SINKTD)  is  matched  to  within 

EPSROC  feet/minute.  EPSROC 
is  hard-coded  at  0.S  feet/minute. 
When  FLARENZ  is  first  called, 
the  initial  guess  for  normal  load 
factor  is  determined  by  assuming 
the  flare  is  using  the  following 
simplified  trajectory.  The  flare 
trajectory  is  estimated  by  a 
constant  normal  load  factor  (nj 
constant  airspeed  circular  arc 
starting  at  the  flare  height 
(HFLARE),  flighq>ath  angle 
(GAMMAPP),  and  approach 
speed  (VKAPP).  The  end  of  die 
arc  is  defined  by  the  sink  rate  at 
touchdown  (SINKTD),  and  the 
approach  speed  (VKAPP). 

Figure  6,  shows  a  diagram  of 
the  flare.  The  flare  height  can 
be  defined  as  a  function  of 
the  flare  radius  (R)  and  the 
flare  radius  can  be  represented 
using  the  circular  centripetal 
acceleration  equation: 


hfUR  =Yto-Y„p  =RcosTrn)-Rcosy,pp  =  R(cos7rD-cosY,pp)  (1) 

a.  =g(nx-1.0)  (2) 

Substituting  equation  2  for  R  into  equation  1, 

hfla,  =[V,^*(cosTto-cosY„)/g]/(n,- 1.0)  (3) 

Solving  fOT  normal  load  factor  as  a  function  of  the  two  flightpath  angles  and  Eq)proach  speed, 

n,  =  [V,^\cosyn)-cosY,pp)/ghn«t]  + 1.0  (4) 


This  gives  subroutine  FLARENZ  a  starting  point  for  iterating  on  normal  load  factor  to  match  the  sink  rate  at 
touchdown. 

Subroutine  FLARENZ  uses  ITRLND  to  determine  new  values  of  normal  load  factor  to  use  in  calling 
FLARE.  FLARENZ  can  call  subroutine  FLARE  up  to  MAXTTER  times.  MAXTTER  is  hardcoded  at  31. 
This  subroutine  has  the  calling  arguments:  ALPHA,  GAMMAPP,  GAMMATD,  HAGL,  HCLEAR, 
HFLARE,  HRUNWAY,  SINKTD,  THRUST,  VKAPP.  XLFLARE,  and  XLFMAX;  and  contains  common 
blocks:  CTRL,  FPINTEG.  CONST,  and  FLAGS. 

Subroutine  APPROCH 

This  subroutine  controls  execution  of  the  approach  above  the  flare  height,  HFLARE.  This  subroutine  is 
called  only  if  the  obstacle  clearance  height  HCLEAR  is  greater  than  HFLARE.  APPROCH  calculates 
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values  for  output  every  APPDTIM  seconds.  APPDTIM  is  hard  coded  to  0.S  second.  This  subroutine  has 
the  calling  arguments:  ALPHA,  GAMMAPP,  ODIST,  HAGL,  HCLEAR,  HFLARE,  and  HRUNWAY;  and 
contains  common  blocks:  CTRL,  AIRCRFT,  AERO,  ENGINE,  AIRSPED,  FPINTEG,  ATMOS,  CONST, 
and  FLAGS. 

Subroutine  FLARE 

lliis  subroutine  controls  execution  of  the  flare  maneuver.  Subroutine  FLARE  calls  ENTX  to  perform 
numerical  integration  of  the  resultants  of  the  equations  of  motion  and  calls  FORCEX  to  obtain  the  force 
coefficients  for  the  equations  of  motion.  This  subroutine  has  the  calling  arguments:  ALPHA,  GDIST, 
ODIST,  ROCTD,  and  VKTGS;  and  contains  common  blocks:  CTRL,  AIRCRFT,  AERO,  ENGINE, 
AIRBORN,  AIRSPED,  RUNWAY,  FPINTEG.  ATMOS,  CONST,  and  FLAGS. 

The  variable  DTDTGEX  is  provided  to  the  user  as  a  means  to  account  for  a  loss  in  the  pitch  rate  capability 
due  to  ground  effect.  DTDTGEX  may  be  a  function  of  wing  height/wingspan;  total  lift  coefficient  (CL),  or 
circulation  lift  coefficient;  et  cetera.  DTDTGEX  would  equal  1.0  out  of  ground  effect  and  less  than  1.0  in 
ground  effect.  DTDTGEX  should  be  calculated  in  subroutine  ‘FXXAERO’  and  passed  through  the  calling 
statement  to  subroutine  FORCEX.  The  user  may  ignore  DTDTGEX  without  affecting  program  execution. 

Subroutine  ROLL 

This  subroutine  controls  the  execution  of  the  ground  roll  of  the  landing  maneuver  or  the  decelnation 
portion  of  a  refused  takeoff  maneuver.  Subroutine  ROLL  calls  INTX  to  perform  numerical  integration  of 
the  resultants  of  the  equations  of  motion  and  call  FORCEX  to  obtain  the  force  coefficient  for  the  equations 
of  motion.  The  calling  arguments  are,  angle  of  attack  (ALPHA)  and  the  ground  distance  covered  by  the 
approach  and  flare  or  the  takeoff  ground  roll  (GDIST);  ROLL  contains  common  blocks:  CTRL,  AIRCRFT, 
AERO,  ENGINE,  AIRSPED,  RUNWAY,  INTEG,  ATMOS,  CONST,  FLAGS  and  CHARV. 

Subroutine  INTX 

This  subroutine  performs  the  numerical  integration  using  a  fourth  order  Runge-Kutta  scheme  vrith  the 
Adams-Bashforth-Moulton  predictor-corrector  method  (Reference  4).  The  calling  arguments  are  NEQ, 
TIME,  DTIME,  T,  DERTV  ,  J  ^HA.  NEQ  is  the  number  of  equation  of  motion  to  be  integrated.  T  is 
either  the  values  of  common  block  l-riEG  or  FPINTEG.  DERIV  is  a  subroutine  that  must  be  made 
external  in  the  calling  subroutine.  DERTV  corresponds  to  either  DERTVGR,  DERIVAT,  or  DERTV AL; 
INTX  contains  no  common  blocks. 

Subroutine  INTG 

This  subroutine  calculates  incremental  distance,  DDIST;  total  ground  distance,  GDIST;  and  gross  weight, 
GWT.  This  subroutine  has  the  calling  arguments:  DIST,  DISTJ,  DTIME,  GAMMAR,  VWIND,  WFUEL, 
DDIST,  GDIST,  and  GWT;  and  contains  no  common  blocks. 

Subroutine  DERTVGR 

This  subroutine  calculates  the  acceleration,  ACCEL,  for  the  ground  roll  of  a  takeoff,  landing  or  refused 
takeoff.  This  subroutine  has  the  calling  argument:  ALPHA;  and  contains  common  blocks:  CTRL, 
AIRCRFT,  AERO,  AIRSPED,  RUNWAY,  INTEG,  CONST,  and  FLAC^. 

Subroutine  DERIVAT 

This  subroutine  calculates  the  time  derivatives  for  the  airborne  portion  of  the  takeoff  and  manages  the 
flighqrath  control.  This  subroutine  has  the  calling  argument:  ALPHA;  and  contains  common  blocks: 
AIRCRFT,  AERO,  AIRBORN,  FPINTEG,  CONST,  and  FLAGS. 
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SateoutiaeDeiUVAL 

Tliu  tuteoudiie  cjimlatrs  the  tune  dehvalives  for  the  aiibone  portion  of  the  landing  and  manages  the 
fKghtpaih  coatro).  This  subroutine  has  die  calling  argument:  ALPHA;  and  contains  common  blocks:  CTRL, 
AIRCRFT,  AERO.  AIRBORN,  FPINTEG.  CONST,  and  FLAGS. 

ERROR 

This  subroutine  is  called  during  a  takeoff  simulation  when  the  flag  ERRFLAG  is  set  to  .TRUE.  Program 
execulioo  is  tertmnaied  for  the  present  namelist  inputs  and  will  continue  if  additional  namelist  inputs  are 
to  be  processed-  This  subroutine  has  the  calling  arguments:  LUOUT  and  ROCFPM;  and  contains  no 
common 


Subroutine  HALT 

This  subroutine  terminates  program  execution  and  writes  a  termination  message,  TERMh'^G.  This 
subroutine  has  the  calling  arguments:  LUIN,  LUMSG,  LUOUT,  and  TERMMSG;  and  contains  no 
common  Mocks. 

Subroutine  ATMOSm 

This  subtotnine  calculates  atmospheric  pressure,  temperature,  density,  speed  of  sound,  kinematic  viscosity, 
as  well  as  pressure,  temperature  and  density  ratios.  The  inputs  are  pressure  altitude  (PRESALT)  and  the 
temperature  increment  from  standard  day  (DTEMPF).  This  subroutine  has  the  calling  arguments: 
PRESALT  and  ARRAY;  and  contains  common  block  ATMOS. 

Subroutine  SPEED 

This  subroutine  calculates  dynamic  pressure,  Mach  numbo-,  calibrated  airqieed,  equivalent  airspeed,  true 
airspeed,  and  groundspeed.  This  subroutine  has  the  calling  arguments:  GAMMAR,  WASK,  VWIND, 
AMACH,  QS,  VKCAS,  VKEAS,  VKTAS,  VKTGS,  and  VTGS;  and  contains  common  blocks:  AIRCRFT, 
ATMOS,  and  CONST. 

Subroutine  ITRLND 

This  subroutine  is  a  zero-finding  routine  which  varies  the  independent  variable  based  on  the  sign  and  size  of 
the  error.  The  loop  containing  the  call  to  ITRLND  is  exited  successfully  when  JFLAG  =  3  or  when  the 
magnitude  of  the  error  is  less  than  the  tolerance  value,  TOLRNCE.  This  subroutine  has  the  calling 
arguments:  ERROR,  ERRORJ,  DRIVER,  FACTOR,  TOLRNCE  and  JFLAG;  and  contains  no  common 
blocks.  ERROR  and  ERRORJ  are  the  present  and  previous  errors,  respectively.  JFLAG  is  a  variable  which 
indicates  the  status  of  the  search.  JFLAG  is  set  to  0  before  ITRLND  is  t^led.  After  the  first  call  to 
ITRLND,  JFLAG  is  set  to  1 .  JFLAG  is  set  to  2  once  the  zero  is  isolated  between  the  upper  and  lower 
boundaries,  BOUNDU  and  BOUNDL,  respectively.  JFLAG  is  set  to  3  and  the  zero  is  considered  found 
when  the  absolute  value  of  the  difference  between  BOUNDU  and  BOUNDL  is  less  than  TOLRNCE,  the 
tolerance  passed  to  subroutine  ITRLND. 

During  the  first  call  to  ITRLND  DRIVERJ,  the  previous  DRIVER,  is  set  to  DRIVER  and  then  DRIVER  is 
multiplied  by  FACTOR.  This  forms  a  range  with  boundaries,  DRIVERJ  and  DRIVER.  On  subsequent 
calls  to  ITRLND,  these  two  driver  values  are  set  to  either  an  upper  or  lower  boundary  or  a  multiplication 
or  division  by  FACTOR  is  applied  to  DRIVER.  Once  the  location  of  the  zero  is  determined  to  be  on 
one  side  of  the  DRIVER  or  the  other,  DRIVER  is  set  to  either  the  upper  or  lower  boundary  as  the  search 
is  narrowed. 
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Program  Functkai  Descriptions 

F^inction  DGDT 

This  function  leturns  the  acceleration  n<»nial  to  tiie  flightpath.  This  function  has  the  calling  arguments: 
ALPHA,  FPVTAS,  GAMMAR,  and  GWT;  and  contains  conunon  blocks:  AERO.  AIRSPED  and  CONST. 

Function  DVDT 

This  function  returns  the  acceleration  along  tiie  fii^Qsath,  dVc/dt  Function  DVDT  uses  functions. 
DVTDH,  DADH,  and  DDELTDH  to  account  for  acceleration  from  flying  at  a  constant  calibrated  airqieed. 
This  function  has  the  calling  arguments:  ALPHA,  FPVTAS.  GAMMAR,  and  GWT;  and  contains  common 
blocks:  AERO.  AKSPED  and  CONST. 

Function  DVTDH 

This  function  returns  the  climb  speed  derivative  with  respect  to  pressure  altitude  (dV,/dH)  for  a  constant 
calilnated  airspeed,  equivalent  airspeed  or  Mach  number.  Using  this  function  for  a  calibrated  airspeed  (by 
setting  CONSTANT  =  ‘VC’)  allows  function  DVDT  to  return  a  value  dVc/dt  instead  of  dV,/dt  This 
function  has  the  calling  arguments:  VTAS  and  CONSTANT;  and  contains  common  blocks:  CTRL, 
FPINTEG,  ATMOS,  CONST  and  RACURV. 

Function  DADH 

This  function  returns  die  speed  of  sound  derivative  with  respect  to  pressure  altitude  (da/dH).  This  function 
has  tile  calling  argument:  HC;  and  contains  common  Mock:  CTRL. 

Function  DDELTDH 

This  function  returns  the  pressure  ratio  derivative  with  respect  to  pressure  altitude  (dS/dH).  This  function 
has  tiie  calling  argument  HC;  and  contains  common  block:  CTRL. 

Function  DSIGDH 

This  function  returns  the  density  ratio  derivative  with  respect  to  pressure  altitude,  da/dH.  This  function  has 
the  calling  argument  HC;  and  contains  common  block:  CTRL. 

Function  ENTERP 

This  function  returns  an  interpolated  value  between  two  ordinate  inputs  based  on  the  additional  inputs  of 
three  abscissas.  To  i»event  an  arithmetic  indefinite  this  function  resets  the  diffnence  of  the  two  maxima 
abscissas  to  one  if  tte  difference  equals  zero.  This  function  has  the  calling  arguments:  YNOW,  YPAST, 
XNOW,  XPAST  and  XANS;  and  contains  no  conunon  blocks. 

Function  ZEROX 

This  function  finds  the  location  (in  X)  of  a  zero  of  a  function  FUNCT(X)  on  an  interval  X  s  A  to  X  =  B. 
The  function  2£ROX  assuir  3S  that  F(A)  and  F(B)  are  of  opposite  sign,  inqilying  that  FUNCTN(X)  is  equal 
to  zero  somewhere  within  tiiat  interval.  Function  ZEROX  finds  this  zero  by  recursively  calling  function 
FUNCTN.  ZEROX  uses  the  logical  variable,  FINDV,  to  transfer  the  proper  calling  arguments  to  function 
FUNCTN.  If  FINDV  is  .TRUE.,  ZEROX  passes  calibrated  airspeeds  for  A  and  B;  otlmwise,  angles  of 
attack  are  passed.  The  argument  ‘TUNCTN”  must  be  declared  external  in  the  calling  subroutine  and  have 
four  calling  arguments.  A  or  B,  VAR2,  VARS,  and  VAR4.  Functions  DGDT  and  DVDT  meet  tiiis  criteria. 
ZEROX  has  the  calling  arguments:  A,  B,  FUNCTN.  VAR2,  VARS,  VAR4,  TOLRNCE,  and  FINDV;  and 
contains  no  common  blocks. 
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COMMON  BLOCK  DESCRIPTIONS 

This  section  describes  die  common  blocks  of  die  TOLAND  pn^gnm  and  dieir  variables. 

Common  CTRL 

Common  CnU<  contains  variables  concerning  program  contnd. 

DTIME  is  die  cunent  Runge-Kutta  Numerical  Integration  Step  Size  in  seconds.  The  default  for  DTIME  is 
0.10  seconds;  DTIME  is  entered  through  namelist  DATA2. 

DTIMEJ  is  the  ptevious  Runge-Kutta  niitnerical  integration  step  size  in  seconds.  This  variable  is  used  to 
stme  the  original  value  of  DTIME  while  the  cunent  value  is  lowered  to  allow  the  output  to  be  printed  at  an 
even  interval  of  time  This  variable  is  used  at  the  interfaces  of  subroutines  APPROCH,  FLARE,  and  ROLL. 

ICOUNT  is  the  integration  loop  initializing  variable.  After  switching  from  one  integration  loop  to  another. 
ICOUNT  stores  the  integer  variable  which  initializes  the  integration  loop.  Theiefr»e,  the  {nogram  will 
write  the  output  variables  after  executing  bodi  imegration  loops  a  total  of  10  times.  This  could  be  two 
iterations  of  first  loop  and  eight  iterations  of  the  next  loop  or  three  iterations  of  the  first  loop  and  seven 
iterations  of  the  next  lotqi,  et  cetera.  Placing  ICOUNT  in  Common  CTRL  allows  the  program  to  execute 
difietent  int^ration  lo<^  in  different  subroutines  while  still  retaining  writing  die  output  variables  once 
every  10  iterations.  With  DTIME,  the  Runge-Kutta  Integration  Stqi  Size  set  to  0.1  seconds,  output  will 
occur  once  per  second  of  simulation  time. 

JDEBUG  is  die  TOLAND  debug  code.  This  code  is  user  definable;  it  can  be  used  to  ou^ut  ddnig  data 
from  the  user  (xovided  suluoutines.  When  JDEBUG  is  set  to  6666,  debug  output  for  ^  steady-state 
iterations  is  printed.  The  JDEBUG  setting  of  9999  is  reserved  and  used  for  full  de^g  output  The  ^feult 
for  JDEBUG  is  0;  JDEBUG  is  entered  daough  namelist  DATA2. 

KENG  is  die  subroutine  *FXXENG’  output  switch.  It  allows  the  program  to  switch  between  die  ^pes  of 
output  subroutine  *FXXENG’  can  provitfe  subroutine  ‘FXXENG’  ouqxits  gross  thrust  and  fuel  flow  from  a 
powo-  setting  iqiut  if  KENG  is  set  equal  to  1.  Subroutine  ‘FXXENG’  ouqwts  power  setting  from  an  input 
of  thrust  if  KENG  is  set  equal  to  2.  This  sulxoutine  is  provided  by  the  user,  KENG  can  be  just  a  null  or 
imctive  variable.  Cunendy  all  the  calls  to  subroutine  ‘FXXENG’  require  outputs  of  thrust  and  fuel  flow 
from  a  power  setting  input 

LINENUM  is  the  current  line  number  of  the  cunent  page  of  output  When  LINENUM  exceeds  NPAGE,  a 
new  page  is  started. 

LUIN  is  the  logical  unit  fin  input  It  is  an  intego'  variable  which  determines  which  file  namelist  inputs  are 
read  from.  The  default  for  LUIN  is  3,  but  can  be  user  defined;  LUIN  is  initialized  in  the  main  program. 

LUMSG  is  the  logical  unit  for  message  ouqiut  It  is  an  integer  variable  which  determines  which  file  certain 
ptograth  messages  are  written  to.  The  messages  that  can  be  re-routed  come  from  the  debug  output  as  well 
as  UFTAS  randtmi  access  curve  file  subroutines.  The  default  for  LUMSG  is  LUOUT;  LUMSG  is  entered 
through  namelist  DATA2. 

LUOUT  is  the  logical  unit  for  ouqjut  It  is  an  integm-  variable  which  determines  vriiich  file  isogram 
ou^nit  is  writtmi  to.  The  default  for  LUOUT  is  4,  but  can  be  user  defined;  LUOUT  is  initialized  in  the 
main  program. 

NCOUNT  is  die  integration  loqp  counter.  After  executing  an  integration  loop  10  times,  the  program  will 
write  the  output  variables.  Placing  NCOUNT  in  common  CTRL  allows  the  program  to  execute  different 
iittegration  loops  in  different  subroutines  while  still  retaining  writing  the  output  variables  once  every 
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10  Iterations.  With  DTIME,  the  Runge-Knlta  int^ratkn  step  size  set  to  0.1  seconds,  output  will  occur  once 
per  second  of  simulation  tiine. 

NEQ  is  the  number  of  equations  of  motion  to  be  integrated.  NEQ  is  set  to  2  for  the  takeoff  ground  roll  and 
landing  roll  and  is  set  to  4  for  the  aiibome  portions  of  die  takeoffi  and  landings. 

NPAGE  is  the  number  of  lines  of  output  per  page.  Whm  LINENUM  exceeds  NPAGE,  a  new  page  is 
started.  The  default  for  NPAGE  is  64  lines  per  page;  NPAGE  is  hard  coded  in  the  main  program. 

TIME  is  the  elapsed  time  in  seconds. 

HMEROL  is  the  elapsed  time  of  die  ground  roll.  This  elapsed  time  coireqionds  to  die  landing  ground  roll 
or  the  portion  of  the  ground  roll  of  a  refused  takeoff  after  engine  failure. 
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Ctmunon  AIRCRFT  contains  many  of  the  airoaft  q)ectfic  constants  and  variables. 

AOA3FT  b  the  angle  of  attack  for  the  aircraft  in  a  doee-pont  attitude.  Thu  aircraft  constant  b  used  to 
initialize  an^  of  attack  at  the  beginoing  of  a  takeoff  and  to  set  the  zero  angle  of  attack  flag  (AOACFLG)  to 
true  for  a  landing.  AOA3FT  b  initialized  in  subroutine  FORCEX. 

ARb  the  aspect  ratio  of  the  wing.  Thb  aircraft  constant  b  used  to  calculate  ground  effect  variables.  ARb 
initialized  in  subroutine  FORCEX. 

B  b  the  wingspan  in  feet  Thb  aircraft  constant  b  used  to  calculate  ground  effect  variables.  B  b  initialized 
in  subroutine  FORCEX. 

CGPCT  b  the  longitudinal  position  of  the  center  of  gravity  as  a  percentage  distance  of  die  mean 
aerodynamic  dioid  aft  from  die  leading  edge  of  the  wing.  The  defi^  for  CGPCT  b  user  defined  in 
subroutine  FORCEX;  CGPCT  b  entered  through  namelist  DATA. 

CLALPH  b  die  lift  curve  slope  out  of  ground  effect  Thb  aircraft  constam  b  used  to  calculate  ground 
effect  variables.  Because  dib  constant  b  used  mily  in  the  user  provided  subroutine,  (EFFECT,  it  can  have 
units  of  either  1/degrees  or  1/iradians.  CLALPH  b  initialized  in  subroutine  FORCEX. 

CONFIG  b  a  number  iqxesenting  die  ctmfigimtion  of  the  aircraft.  Thb  floating  pomt  variaUe  b  a  user 
definable  itqwt  CONFIG  b  initialized  in  subroutine  FORCEX.  Thb  variable  b  not  required;  CONFIG  is 
entered  through  namelbt  DATA2. 

DTDTMX  b  die  maximum  pitch  rate  during  the  landing  simulation  in  degrees  per  second.  The  defuilt  for 
DTDTMX  b  user  defined  in  subroutine  FORCEX;  DTDTMX  b  entered  through  namelist  LND2. 

FLT  b  die  fli^t  number.  It  is  a  floating  point  variable  available  to  die  user  for  management  and  tracking  of 
data.  The  default  for  n.T  b  0.0;  FLT  b  entered  through  namelbt  DATA2. 

GWT  b  the  gross  weight  during  program  execution  in  pounds.  GWT  is  a  required  variable;  there  b  no 
default  GWT  b  initialized  as  GWTO.  GWTO  b  entered  through  namelist  DATA. 

HZ  b  the  distance  fiom  the  bottom  of  the  wing  to  the  bottom  of  the  tires  in  feet  Thb  aircraft  constant  b 
used  to  calculate  ground  effect  variables.  HZ  b  initialized  in  subroutine  FORCEX. 

LOADING  b  a  number  representing  the  external  store  loading  of  the  aircraft.  Thb  integer  variable  is  a  user 
definable  iiqiut  LOADING  b  initialized  in  subroutine  FORCEX.  Thb  variable  b  not  required;  LOADING 
is  entered  dvough  namelbt  DATA2. 

SWING  is  die  wing  surface  area  in  square  feet  SWING  is  initialized  in  subroutine  FORCEX. 

THTMAX  b  the  maximum  pitch  attitude  limit  in  (fegiees.  THTMAX  b  initialized  in  subroutine  FORCEX. 

WNGLOD  b  the  wing  loading  in  pounds  per  square  foot  It  b  calculated  in  the  main  program  and  ouqiut  at 
die  beginning  of  a  takeoff  simulation  in  subroutine  TAKOFF. 

XLFMAX  b  the  simulation  maximum  normal  load  fector  in  g’s.  XLFMAX  is  initialized  in  subroutine 
FORCEX.  XLFMAX  b  only  used  for  the  flare  portion  of  a  landing. 
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ConmonAERO 

CoiniiK»  AERO  coataiiis  the  aaodyoaniic  panmeten. 

CX  is  the  fane  coefficient  akmg  die  flightpedi  or  gronod  roll.  This  pennietier  is  Anther  defined  in 
Appendix  A,  Equations  of  Motioa 

CY  is  the  force  coefficient  nonnal  to  the  flighipe^  or  ground  roll.  '•tameter  is  further  defined  in 

Appendix  A,  Equations  of  Motion. 

DADTCMD  is  the  commanded  angle  of  aoack  rate.  It  is  the  rate  at  which  the  aircraft  rotates  during  the 
takeoff  maneuver.  DADTCMD  affects  the  rate  of  convergence  to  target  pitch  attitudes  and  target  airqieeds. 
The  default  for  DADTCMD  is  2JS  degrees  per  second;  DADTCMD  is  entered  through  namelist  DATA. 

DCDX  is  the  user  drag  coefficient  increment  The  user  may  alter  the  drag  coefficient  (CD)  by  adding 
a  delta  drag  coefficient  increment  The  default  for  DCDX  is  0.0000;  DCDX  is  entered  through 
namelist  DATA2. 

DCLX  is  the  user  lift  coefficient  incremeot  The  user  may  alter  the  lift  coefficient  (CL)  by  adding  a  delta 
lift  coefficient  increment  The  default  for  DCLX  is  0.0000;  DCLX  is  entered  throu^  nameUst  DATA2. 

DTDTGEX  is  the  loss  in  pitch  rate  capalnlity  due  to  ground  effect  The  user  may  lower  the  pitch  rate 
during  the  flare  in  ground  effect  by  using  diis  multiplicative  fectm  applied  to  (Mtdi  rate.  The  defiuilt  for 
DTDTGEX  is  1.0;  DTDTGEX  can  be  calculated  in  subroutine  ‘FXXAERO’  and  passed  through  the  calling 
statement  to  subroutine  PORCEX 

FLAP  is  the  current  flap  deflection  in  degrees  during  program  execution.  The  default  for  FLAP  is 
•LOdegtee.  This  default  value  allows  FLAP  to  be  set  fiom  FLPPCT.  FLAP  is  a  required  input  if  FLPPCT 
is  not  used.  FLAP  is  entered  through  namelist  DATA. 

FLPPCT  is  the  current  fhq>  percentage  setting  during  program  execution.  This  optional  variable  provides 
the  user  an  additional  mediod  of  entering  flip  deflection  into  the  program.  The  default  is  user  defined  in 
subroutine  FORCEX.  FLPPCT  is  entered  thrw^  namelist  DATA2. 

QS  is  the  product  of  current  dynamic  pressure  (Q)  and  wing  surface  area  (SWING).  The  units  for  QS  are 
in  pounds. 

SPDBRK  is  the  current  speed  brake  deflection  in  degrees. 

SPOILER  is  the  current  qioiler  deflection  in  degrees. 

VKCAS  is  the  currem  calibrated  airspeed  in  knots. 

VKTAS  is  die  current  true  airspeed  in  knots. 
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Common  ENGINE 


Common  ENGINE  contains  the  m^or  engine  panmeters. 


ATT  it  the  tlinist  incidence  angle  in  d^iees.  This  constant  is  initialized  in  subroutine  FORCEX. 


AMACH  is  the  current  Mach  number. 


DTFAE<  is  the  delta  time  for  the  foiled  engine  to  lose  thrust  by  the  thrust  level  defined  by  XENGFLD. 
Thrust  and  fuel  flow  decrease  linearly  over  the  time  interval  E>TFAE<.  The  defiuilt  for  DTFAIL  is 
0.0  second;  DTFAIL  is  muered  through  namelist  DATA2. 

EPR  is  engine  pressure  ratio.  This  parameter  can  optionally  be  used  to  input  engine  thrust  levels  to  the 
program  or  can  be  used  as  a  variable  which  ctmtains  the  current  value  of  Engine  Pressure  Ratio.  The 
defoult  for  EPR  is  0.0;  EPR  is  entered  through  nanaelist  DATA2. 

FE  is  the  current  propulsive  drag  of  all  the  engines  in  pounds. 

FG  is  die  curtent  gross  thrust  of  all  the  engines  in  pounds. 

PGPCT  is  the  gross  thrust  percentage  incremenL  The  user  may  increase  the  gross  thrust  by  a  given 
peroentage  using  diis  input  variable.  The  defiuilt  for  PGPCT  is  0.0  percent;  PGPCT  is  entered  through 
namelist  DATA2. 


NENG  is  the  total  number  of  engines  the  aircraft  has.  This  constant  is  initialized  in  subroutine  FORCEX. 


PWRCODE  is  the  aircraft  power  code.  It  can  describe  the  thrust  settings  to  which  all  the  aircraft  engines 
are  set  The  defoult  fiv  PWRCODE  is  user  defined  in  subroutine  FORCEX;  PWRCODE  is  entered  through 
namelist  DATA2. 


REVNDX  is  the  reverse  engine  spool-up  index.  It  can  describe  the  spool-up  curve  in  subroutine  SPOOLUP 
which  cotieqxmds  to  thrust  reversers.  This  constant  is  user  defined  in  subroutine  ‘FXXENC’  and  must  be 
passed  through  •>  •  calling  argument  to  subroutine  FORCEX;  REVNDX  is  not  required  if  thrust  reversers 
are  not  to  be  simulated. 


THRUST  is  the  current  total  net  dnust  of  all  the  migines  in  pounds. 

VTANGLE  is  the  current  vectored  thrust  angle  in  degrees. 

WFUEL  is  the  current  total  fuel  flow  of  all  the  engines  in  pounds  per  hour. 

XENG  is  die  current  engine  multiplicative  factor.  Total  engine  parameters  (e.g.  net  dmm,  fuel  flow)  are 
defined  by  their  correqKmding  per  engine  values  multiplied  by  XENG.  The  defoult  for  XENG  is  usa 
defined  in  subroutine  FORCEX;  XENG  is  entered  daough  namelist  DATA2. 

XENGFLD  is  the  fooled  engines  multiplicative  factor.  This  variable  is  not  an  integer  variable  and  is  not  the 
number  of  foiled  engines.  It  is  a  floating  point  variable  that  is  used  with  12a  engine  values  of  thrust  and  fuel 
flow.  This  allows  the  program  to  represent  engine  values  of  a  partial  failed  engine  (e.g.  afterburner).  If 
XENGFLD  is  not  equal  to  1.0,  FA^LST  must  be  set  to  NULL’.  FAILST  overridM  XENGFLD.  The 
default  for  XENGFLD  u  1.0;  X^GHJ>  is  entered  diroi^  nameliri  DATA2. 

XENGOUT  is  the  engine  multiplicative  factor  after  an  engine  foilure  of  XENGFLD  engines.  It  is  defined 
as  the  XENG -XENGFLD. 
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XIDLE  is  die  idle  eagine  multiplicative  factor  for  a  shigle  aipiie.  The  default  for  XIEH£  is  0.06;  XIDLE 
is  user  defined  in  subroutine  PORCEX. 

XMIL  is  the  militaiy  dmist  engine  multiplicative  factor  for  a  single  engine.  The  default  for  XMIL  is  0.50; 
XMIL  is  user  defined  in  subroutine  FORCEX. 

ZFN  is  a  user  definable  variable. 
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Common  AIRBORN 


Common  AIRBORN  contains  airborne  control  and  status  parameters. 


ALPHA!  is  dw  previous  angle  of  attack  calculated  fixnn  the  last  integration  in  degrees. 

ALPHMX  is  the  maximum  angle  of  attack  limit  in  degrees.  ALPHMX  is  set  to  THTMAX  in  subroutine 
LANDNG. 


DTDT  is  the  current  pitch  rate  in  degrees  per  second. 

GAMMAPP  is  die  flighqiath  angle  in  degrees  during  ^iproach.  The  default  for  GAMMAS*  is  -3.0  degrees 
(descending);  GAMMAPP  is  entered  dirough  namelist  LND. 

ROCFPM  is  the  current  rate  of  climb  in  feet  per  minute. 

THETAF  is  the  current  pitch  attitude  in  degrees. 

XLF  is  the  current  notnud  load  factor  in  g's. 

XLFJ  is  the  previons  normal  load  factor  calculated  from  the  last  numerical  integration  in  g's. 
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Commoo  AIRSPQ) 


Coaunoo  AIRSPED  contains  the  ainpeed  conttaots  used  for  prognm  oootnd. 

VKABRK  is  the  odibrated  airspeed  during  the  landing  ground  roll  that  aerobnking  is  stopped  and  the 
an^e  of  attack  is  lowered  frcmAOAABRK  to  0.0  dqiree.  The  d^ault  for  VKABRK  is  0.0  knM  calibrated 
air^wed  (no  aetofaraking}:  VKABRK  is  entered  dtrougfa  namelist  RGL2. 

VKAPP  is  the  calibrated  airspeed  in  knots  during  the  approach.  VKAPP  is  entered  ihror^  namelist  LND. 

VKBRAKE  is  die  wheel  braldog  airspeed  in  knots.  Wheel  braking  is  initiated  after  the  calibrated  airspeed 
is  less  dun  VKBRAKE.  The  deftuih  for  VKBRAKE  is  999  knots  calibrated  airspeed;  VKBRAKE  is 
entered  through  namelist  ROL2. 

VKEND  is  the  simulation  end  airspeed  in  knots.  The  default  for  VKEND  is  250  knots  calibrated  airspeed; 
VKEND  is  entered  through  namelist  TK02. 

VKFABL  is  the  engine  failure  airspeed  in  knots.  The  default  for  VKFAIL  it  0.0  knot  calibrated  airspeed 
which  is  deftned  as  no  engine  failuie;  VKFAIL  is  entered  through  namelist  TKO. 

VKFLAP  is  the  calibrated  airspeed  at  which  the  Saps  are  retracted.  The  default  for  VKFLAP  is  the  flap 
limit  airspeed  (VKFLPMX);  VKFLAP  is  entered  through  namelist  TK02.  The  flap  limit  airspeed 
(VKFLPMX)  is  user  defined  in  subroutine  FXXAERO’. 

VKFLPMX  is  the  maximum  flap  calibrated  airspeed  in  knots.  This  constant  is  used  as  the  defnilt  for 
VKFLAP,  it  is  user  defined  in  subroutine  FXXAERO*. 

VKMCG  is  the  minimiim  coitftol  aittfieed  on  the  ground.  It  is  an  iqwt  variabk  used  to  nigger  a  qpool-up 
of  an  operating  but  asymmetric  engine.  It  would  be  used  in  the  case  of  (for  example)  a  three-engine  takeoff 
of  a  four-engine  airci^  whose  gross  weight  was  not  suffident  for  nose  wheel  smering  to  account  for  the 
full  or  partial  asymmetric  thrust  VKMCX}  is  iwt  used  to  fail  an  engine;  use  VKFAIL.  The  default  for 
VKMC^  is  0.0  knot  calibrated  airspeed;  VKMCG  is  entered  through  namelist  DATA2. 

VKROTAT  is  the  rotation  airqreed  in  knots.  The  default  for  VKROTAT  is  0.0  knot  calibrated  airspeed. 
The  simulation  will  rotate  the  aircraft  without  adequate  tail  authority;  TOLAND  runs  with  only  engine  and 
aerodynamic  models  which  do  not  define  moments  about  the  aumft  cemer  of  gravity;  VKROTAT  is 
entmed  through  namelist  TKO. 

VKSTART  is  the  sitnulatioo  stvt  groundsoeed  in  knots.  This  input  varfable  allows  the  user  to  simuhae 
takeoffs  where  there  is  a  given  groundspek  at  the  time  the  airoaft  is  aligned  on  the  centerline  of  the 
runway.  The  default  for  VKSTART  is  0.0  knot;  VKSTART  is  entered  through  namelist  TK02. 

VKWIND  is  the  headwind  component  of  wind  speed  in  knots.  Tailwdttds  are  iiqwt  using  negative  wind 
speeds.  The  default  for  VKWIND  is  0.0  knot  (no  wind);  VKWIND  is  entered  thrm^  namelist  DATA. 

VWIND  is  the  headwdnd  component  of  wind  speed  in  feet  per  second.  Tailwinds  use  negative  wind  speeds. 
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Common  RUNWAY 


Common  RUNWAY  conttiiis  the  maior  parameters  related  to  the  runway. 

ABARG  is  the  average  decderatioo  in  g’s 

AOAABRK  is  the  angle  of  attack  for  aerofaraking  during  the  landing  ground  roll  if  the  calibrated  airspeed  is 
greater  than  VKABRK  knots  calibrated  airspeed.  The  default  for  AOAABRK  is  0.0  degree  (no 
aerobraking);  AOAABRK  U  entered  through  namelist  ROL2. 

BRAKMU  is  the  braking  coefficient  of  frictirm.  This  input  parameter  would  be  used  if  IMU,  the  Braking 
Coefficient  Selector,  is  set  to  0  (corresponding  to  a  constant  BRAKMU).  The  default  for  BRAKMU  is 
0.250.;  BRAKMU  is  entered  through  nanrelist  ROL. 

BRKFCTR  is  the  braking  factor.  It  is  a  multqdicative  factor  applied  to  BRAKMU,  the  Braking  Coefficient 
of  Friction.  It  allows  the  user  to  adjust  the  coefficient  of  friction  during  braking  without  reconqtiiing  code. 
This  input  parametef  would  normally  be  used  if  IMU,  the  braking  Coefficient  Selector,  was  not  set  to  0. 
The  default  for  BRKFCTR  is  1.0;  BRKFACTR  is  entered  through  namelist  ROL2. 

GAMMARW  is  the  slope  of  die  runway  in  degrees.  The  default  for  GAMMARW  is  0.0  degree; 
GAMMARW  is  entered  through  namelist  DATA2. 

GRW  is  the  slope  of  the  runway  in  radians. 

HAGL  is  the  current  altitude  of  the  aircraft  above  die  liftoff  point  on  the  runway  for  takeoff  simulations  or 
the  current  altitude  of  the  aircraft  above  the  runway  for  landing  simulations. 

HCLEAR  is  the  obstacle  clearance  height  in  feet  Hie  defuilt  for  HCXEAR  is  50.0  feet;  HCUEAR  is 
entered  through  namelist  DATA. 

HFLARE  is  the  hmght  in  feet  above  the  touchdown  point  of  the  runway  at  which  the  simulation  initiates  a 
flare.  The  default  for  HFLARE  is  0.0  feet  (no  flare);  HFLARE  is  entered  through  namelist  LND. 

HC^AR  is  landing  gear  retraction  height  in  fe^  above  the  takeoff  point  The  default  for  HGEAR  is 
205  feet;  HGEAR  is  entered  through  ruuneiist  TKO. 

HRUNWAY  is  the  pressure  altitude  of  the  runway  in  feet  The  default  for  HRUNWAY  is  0.0  feet; 
HRUNWAY  is  entered  through  namelist  DATA. 

IMU  is  the  braking  coefficient  selector.  The  default  selections  for  IMU  are  constant  braking  coefficient 
BRAKMU,  0;  user  supplied  curve  file  lookup,  1;  generic  dry  runway  braking  coefficient  2;  and  genedc  wet 
runway  braking  coefficient  3.  The  default  for  IMU  is  0,  which  ctnresponds  to  a  constant  braking 
coefficient  of  friction,  BRAKMU;  IMU  is  entered  through  namelist  ROL.  The  default  for  BRAKMU  is 
0.250;  BRAKMU  is  entered  through  natnelist  ROL. 

RCR  is  the  runway  condition  reading.  It  can  be  used  as  an  input  to  determine  the  variable  BRAKMU.  The 
default  for  RCR  is  user  defined  in  subroutine  GENMU;  RCR  is  entered  through  namelist  ROL. 

ROLLMU  is  the  rolling  coefficient  of  friction.  The  default  for  ROLLMU  is  0.025;  ROLLMU  is  entered 
through  namelist  DATA2. 

TIMEBRK  is  the  braking  time  delay  in  seconds  between  the  time  touchdown  has  occurred  and  the  time  the 
brakes  are  ^^lied  for  a  landing  maneuver.  It  is  also  the  braking  time  delay  between  the  time  an  engine 
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has  failed  and  the  time  die  brakes  are  applied  for  a  refused  takeoff  maneuver.  The  default  for  TIMEBRK  is 
3.0  seconds:  TIMEBRK  is  entered  through  namelist  ROL2. 

TTMEHD  is  the  elapsed  time  from  engine  failure.  TIMEFLD  is  initialized  in  subroutine  TAKOFF  when 
the  engine  failure  sp^  (VKFAE<)  is  attained. 

TTMEFLP  is  the  flap  retraction  time  delay  in  seconds  between  the  time  touchdown  has  occurred  and  the 
time  die  flap  retraction  initiation  has  occurred  retracting  for  a  landing  maneuver.  It  is  also  the  flap 
retraction  time  delay  between  the  time  an  engine  has  failed  and  the  time  the  flap  retraction  initiation  has 
occurred  for  a  refill  takeoff.  The  default  fat  TIMEFLP  is  999.0  seconds;  essentially  the  fls^  are  not 
retracted.  TIMEFLP  is  entered  through  namelist  ROL2. 

TTMESBK  is  the  speedbrake  deployment  time  delay  in  seconds  between  the  time  touchdown  has  occurred 
and  the  time  the  speedbrake  d^loyment  initiation  has  occurred  for  a  landing  maneuver.  It  is  also  the 
speedinake  time  delay  between  the  an  engine  has  failed  and  the  time  the  speedbrake  deployment  initiation 
has  occurred  for  a  refused  takeoff  maneuver.  The  default  for  TTMESBK  is  0.0  second;  TTMESBK  is 
entered  through  namelist  ROL2. 

TTMESPL  is  the  spoiler  deployment  time  delay  in  seconds  between  the  time  touchdown  has  occurred 
and  the  time  the  ^iler  deployment  initiation  has  occurred  for  a  landing  maneuver.  It  is  also  the  spoiler 
time  delay  between  the  an  engine  has  failed  and  die  time  the  spoiler  deployment  initiation  has  occurred 
for  a  refused  takeoff  maneuver.  The  default  fat  TTMESPL  is  0.0  second;  TTMESPL  is  entered  through 
namelist  ROL2. 

XMU  is  the  current  coefficient  of  friction.  It  is  set  equal  to  either  ROLLMU  or  BRAKMU.  ROLLMU  is  a 
constant  entered  dirou^  namelist  DATA.  BRAKMU  is  a  variable  set  in  subroutine  GENMU  or  entered  as 
a  constant  though  namelist  ROL. 
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Ccnniiion  INTEG 


Cooimon  INTHG  contains  the  ground  roil  integration  variables. 


VTAS  is  the  true  airspeed  in  feet  per  second;  it  is  the  integral  of  ACCEL  with  respect  to  time. 

DIST  is  the  air  distance  (ground  distance  uncmrected  for  wind)  in  feet;  It  is  the  integral  of  VTAS  with 
respect  to  time. 

ACCEL  is  the  ground  roll  acceleration  in  feet  per  second  squared.  ACCEL  is  im)vided  by  the  equation  of 
motion  executed  in  subroutine  DERIVGR. 


VTASJ  is  the  previous  true  airspeed  in  feet  per  second.  It  is  used  to  contmually  initialize  the  Runge-Kutta 
array  for  the  ground  roll  iterations. 

RKGRND  is  an  array  containing  previous  values  of  the  ground  roll  integration  variables.  These  values  are 
used  in  the  fourth  or^  Runge-Kutta  numerical  integration  calculations  to  determine  future  values. 

ComnKMi  FFINTEG 

Common  FPINTEG  contains  the  fli^quUh  integration  variables. 

FPVTAS  is  the  flightpath  true  airspeed  in  feet  per  second;  it  is  the  integral  of  FPACCEL  with  lespect 
to  time. 


GAMMAR  is  the  fli^tpath  angle  in  radians;  it  is  the  integral  of  DGDTR  with  respect  to  time. 

FPDIST  is  the  flightpath  air  distance  in  feet;  it  is  the  integral  of  FPVTAS  with  respect  to  time. 

PRESALT  is  the  pressure  altitude  in  feet;  it  is  the  sum  of  HRUNWAY  and  the  inte'oal  of  ROC  with  respect 
to  time. 


FPACCEL  is  the  fli^tpath  acceloation  in  feet  per  second  squared.  FPACCEL  is  provided  from  an 
equatitm  of  motion  executed  in  either  subroutine  DERIVAT  or  subroutine  DERTVAL. 

DGDTR  is  the  rate  of  change  in  flighqwth  angle  widi  respect  to  time  in  radians  per  second.  DGDTR  is 
provided  by  an  equation  of  motion  executed  in  either  subroutine  DERIVAT  or  subrratine  DERIVAL. 

VHAS  is  the  horizontal  airqieed  in  feet  per  second.  VHAS  is  calculated  from  FPVTAS  and  GAMMAR  in 
eitho-  subroutine  DERIVAT  or  subroutine  DERIVAL. 

ROC  is  the  rate  of  climb  in  feet  per  second.  ROC  is  calculated  from  FPVTAS  and  GAMMAR  in  eidier 
subroutine  DERIVAT  subroutine  DERIVAL. 


RKAIR  is  an  array  containing  previous  values  of  the  flighqMth  integration  variables.  These  values  are  used 
in  the  fourth  order  Runge-Kutta  numerical  integration  calcinations  to  determine  future  values. 
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Common  ATMOS 


Cominon  ATMOS  contaiiis  ttie  atmospheric  parameters. 

TEMPR  is  the  cunent  temperature  in  degrees  Rankine. 

PRESS  is  the  current  ambient  pressure  in  pounds  per  square  foot 
RHO  is  the  current  density  is  slugs  per  cubic  feet 
AFPS  is  the  current  speed  of  sound  in  feet  per  second. 

VISCOSK  is  the  current  Idnenutic  viscosity  in  feet  squared  per  second. 

DELTA  is  the  current  pressure  ratio. 

SIGMA  is  the  current  density  ratio. 

THETA  is  die  current  temperature  ratio. 

DTEMPF  is  the  delta  temperature  from  standard  day  in  degrees  Fahrenheit.  The  default  for  DTEMPF  is 
0.0  degree  Fahrenheit;  it  is  entered  through  namelist  DATA. 
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CmnnKHi  CONST 


Common  CONST  contains  die  major  prognun  constants. 

ASL  is  the  speed  of  sound  at  sea  level  in  knots.  This  constant  is  equal  to  661.48  and  is  initialized  in  the 
main  program. 

ASLSQR5  is  the  speed  of  sound  at  sea  level  multiplied  by  die  square  root  of  S.O,  =  1479.1 14245.  This 
ctmstant  is  used  in  die  calculadon  for  calibrated  airspeed. 

FPSKTS  is  die  conversion  facttv  from  knots  to  feet  pa-  second.  This  constant  is  equal  to  1.687806  and  is 
initialized  in  die  main  program. 

G  is  die  reference  acceleration  at  sea  level.  45  degrees  latitude,  due  to  gravity.  This  constant  is  equal  to 
32.174  and  is  initialized  in  the  main  program. 

RX  is  the  conversion  fector  from  radians  to  degrees.  This  constant  is  equal  to  57.2957759130824  and  is 
initialized  in  the  main  program 

TSLF  is  the  standard  day  tenqierature  at  sea  level  in  degrees  Fahrenheit  This  constant  is  equal  to 
59.0  d^rees  and  is  initiali^  in  the  main  (HOgram. 

TWOOVR7  is  the  ratio  of  2.0  over  7.0.  This  constant  is  used  in  the  calculation  for  calibrated  airspeed;  it  is 
equal  to  0J285714285714285  and  is  initialized  in  the  main  program. 

ZERO  is  the  constant  0.0;  it  is  initialized  in  the  main  program. 
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Commoii  FLAGS 


Conunoo  FLAGS  contains  die  inqor  variables  of  type  LOGK^AL. 

AOAIMXj  is  die  zero  angle  of  attack  flag.  Hus  flag  is  .TRUE,  when  die  angle  of  attack  (ALPHA)  is  equal 
to  0.0. 

BRKFLAG  is  the  bnke  flag.  This  flag  is  set  to  .TRUE,  when  the  conditions  for  brake  iqiplkation  ate  met 
The  conditions  are:  cmrent  calibrated  airspeed  (VKCAS)  less  than  brake  application  sp^  (VKBRAKE) 
and  elapsed  time  from  engine  failure  or  touchdown  (TAfEROL)  is  greater  dian  die  braking  time  dday 
CmiEBRK). 

CLRHGT  is  the  clearance  height  flag.  This  flag  is  set  to  .TRUE,  after  the  cunrem  altitude  (HAGL)  exceeds 
die  clearance  height  (HCLEAR). 

ERRFLAG  is  the  error  flag.  This  flag  is  set  to  .TRUE,  by  any  of  the  equation  of  motion  subroutines, 
(I^RIVGR,  DERIVAT,  or  DERIVAL)  when  certain  flij^tpf^  constraints  are  not  satisfied  and  the 
condition  is  not  recoverable.  The  program  will  terminate  processing  widi  die  current  set  of  namdist  inputs. 

FAILFLG  is  die  engine  failure  flag.  This  flag  is  set  to  .TRUE,  when  a  refused  takeoff  or  a  continued 
takeoff  simulation  is  to  be  perfrumed.  At  the  engine  failure  speed  (VKFAIL)  the  engine  failure  speed 
flag  (VFFLAG)  is  set  to  .TRUE,  and  the  program  switches  die  operating  engine  group  (ENGGRP)  to 
the  fail  engine  groiqi  (FAILGRP).  If  the  engine  failure  state  (FAIL^  is  set  to  ‘OFF  current  engiiie 
multiplicative  factor  (XENG)  is  set  to  the  engine  multiplicative  factor  after  engine  frulure  (XENGOUT). 
If  the  time  for  a  Med  engine  to  lose  thrust,  DTFAIL,  is  greater  than  zero,  the  current  engine 
multiplicative  facttK’  is  lineariy  reduced  to  the  en^ne  multiplicative  factor  after  engine  failure,  XENGOUT, 
over  DTFAIL  seconds. 

FLAPFLG  is  the  flap  flag.  This  flag  is  .TRUE  vriien  the  flap  deflection,  FLAP,  is  greater  than  zero. 

FPCTFLG  is  die  fl^  pocentage  flag.  This  flap  is  set  to  .TRUE,  when  the  flap  deflection  is  initialized  at  *1 . 
With  the  flap  percentage  flag  s^  to  .TRUE.,  the  flap  percentage  variable  (FLPPCT)  is  used  to  detenmne 
fl^  deflection  (FLAP). 

GEFLAG  is  the  ground  effect  flag.  This  flag  is  set  to  .TRUE,  when  the  aircraft  is  in  ground  effect  The 
conditions  which  determine  when  this  flag  should  be  .TRUE,  are  to  be  user  defined. 

LGRFLAG  is  the  landing  gear  flag.  This  flag  is  .TRUE,  when  the  landing  gear  is  not  fully  retracted. 

LIFTOFF  is  the  liftoff  flag.  This  flag  is  set  to  .TRUE  after  liftoff  is  achieved. 

OVERFLG  is  the  flare  height  over  obstacle  clearance  hei^t  flag.  This  flag  is  set  to  .TRUE,  if  die  flare 
height  (HFLARE)  is  greater  than  the  obstacle  clearance  height  (HCLEAR). 

REVFLAG  is  the  reverse  thrust  flag.  This  flag  is  set  to  .TRUE,  vdien  reverse  thrust  is  to  be  enabled  for  a 
simulation. 

REVRSE  is  the  thrust  reverse  active  flag.  This  flag  is  set  to  .TRUE,  when  reverse  thrust  is  simulated. 

ROTATE  is  die  rotation  flag.  This  flag  is  set  to  .TRUE,  after  rotation  is  initiated. 

RTOFLAG  is  the  refused  takeoff  flag.  This  flag  is  initialized  to  .TRUE,  when  die  simulation  performs  a 
refused  takeoff.  It  causes  subroutine  TAKOFF  to  return  control  to  the  main  program  which  subsequendy 
calls  sobrootine  ROLL. 
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SBKFLAG  is  tbe  speed  brake  fl«g.  This  flag  is  set  to  .TRUE,  after  tbeqieed  brake  ddlectioo  has  changed. 


SFLFLAG  is  die  spoiler  flag.  This  flag  is  .TRUE,  when  the  ^Uer  deflection  (SPOILER)  is  gretfer  than 
0.0;  SPLFLAG  is  entered  through  namelist  LND2. 


SPOOL  is  die  engine  qiool  flag.  This  flag  is  .TRUE,  when  the  engine  spooling  for  a  dirottle  transient 
is  completed. 


STEADY  is  die  steady-state  flag.  This  flitg  is  set  to  .TRUE,  during  a  steady-state  approach  vdien  engine 
data  is  not  to  be  detomined  by  subroudne  ‘FXXENG’.  Thrust  and  fuel  flow  do  not  change  during  the 
steady-state  approadi;  only  during  the  flare  can  doust,  fuel  flow,  and  dirottle  setting  be  changed. 

TERMFLG  is  the  termination  fU|g.  This  flag  is  set  to  .TRUE,  when  the  any  termination  criterion  is 
satisfied.  This  flag  is  currendy  used  for  takeoff  and  refused  takeoff  simulations. 

VECTFLG  is  the  thrust  vectoring  flag.  This  flag  is  set  to  .TRUE,  when  thrust  vectoring  is  to  be  enaUed  for 
a  simulation. 


VFFLAG  is  tbe  engine  failure  velocity  flag.  This  flag  is  set  to  .TRUE,  when  the  engine  fsilure  speed 
(VKFAIL)  is  reached. 

WRri  lTK  is  the  write  flare  itoadons  flag.  This  flag  is  set  to  .TRUE,  when  the  user  desires  output  on  each 
flare  iteradon  executed  from  subroutine  FLARENZ.  The  defiuilt  tor  WRiiu  k  is  J^ALSE.;  WRIITTR  is 
entered  through  namelist  LND2. 
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ConnoD  CHARY 


CommoaCHARV  contains  (he  mqorvariablet  of  type  CHARACTER. 

ENGGRP  is  the  operating  engine  gfoup.  It  is  a  user  definable  three-character  string  variable  whose 
contents  define  wh^  engines  are  operating  during  a  maneuver.  Examples  of  E^K3GRP  are  'ABO*.  ’GET. 
lET,  and  'AET  which  correspond  to  all  engines  operating,  outboard  engine  inoperative,  inboard  engine 
inoperative  and  all  engines  idfing  respectively.  The  defuilt  for  ENGGRP  is 'AEO*  for  ail  tdieofiEi  and 'AET 
for  all  landings;  ENGGRP  is  entered  through  namelist  DATA2. 

FAILXStP  is  die  foil  engioe  groiqi.  It  is  a  user  definable  three^haracter  string  variaUe  whose  contents 
define  the  state  of  die  engines  after  an  engine  fiulure  or  foilures.  The  defiuih  for  FAILGRP  is  GET; 
FAILGRP  is  entered  through  namelist  DATA2. 

FAILMOD  is  the  engine  failure  mode.  It  is  a  five-character  string  variable  whose  contents  define  die  mode 
of  the  foiled  eogine.  Usually,  only  two  states  are  used:  'SEIZE'  and  'SPOOL'.  The  default  for  FAILMOD  is 
'SEIZE';  FAILMOD  is  entered  duough  namelist  DATA2. 

FAILST  is  die  engine  failure  state.  It  is  a  four-character  string  variable  whose  contents  define  the  state  of 
the  foiled  engine.  Usually,  only  two  states  are  used,  IDLE'  and  GFF '.  The  default  for  FAILST  is  IDLE'; 
FAILST  is  entered  throu^  namelist  DATA2. 

MANUVR  is  the  maneuver  input  It  is  a  ditee-  or  six-character  string  variable  whose  contents  define  which 
maneuver  is  to  be  simulated  thiting  execution.  Valid  three-character  values  of  MANUVR  are:  TKO,  RIG, 
and  LND,  for  takeofft,  refused  takeofft,  and  landings  respectively.  Valid  six-character  values  of 
MANUVR  are:  TOLTKO,  TOLRTO,  and  TGLLND;  for  takeofft,  refused  takeofft,  and  landings 
reflectively.  The  three-character  values  indicate  that  the  program  is  to  read  MANUVR  once  for  the 
entire  iqwt  file.  This  allows  the  user  to  run  one  type  of  maneuver  repetitively.  For  exanqile,  a  single 
input  file  containing  many  namelist  entries  for  landings  would  use  MANUVR  =  LND.  The  input  file  would 
lo^  like  this: 


LND 

&DATA  DADTCMDe2J0,  FLAPs30.0,  GWT&r  200000.,  ..J 
ADATA2.J 

&LND  HFLARE  »  20.,  SINK1D  =  10.0,  VKAPP^  150.0  / 
&LND2..y 

&R(X,  IMU:=1,  RClUlti.  / 

&R(X,2  VKBRAKE=1 10.0  / 

&DATA  DADTCMD=2.50,  FLAP=30.0,  GWT0=  200000.,  ..J 
&DATA2..7 

&LND  HFLARE  =  IS.,  SINKTD  =  10.0,  VKAPPs  150.0  ! 
&LND2..7 

&R(X.  IMUsl,  RCIU16.  / 

&ROL2  VKBRAKEsl  10.0  / 

&DATA  DADrCMD=2.50,  FLAPs30.0,  GWT0=  200000.,  .J 
ALND  HFLARE  »  10,  SINKTD  »  10.0,  VKAPP=  150.0  / 
ALND2..y 

AROL  IMU»1,  RC1U16.  / 

AROL2  VKBRAKExl  10.0  / 
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The  six  duiacter  values  indicate  that  the  {sogtatn  is  to  read  MANUVR  for  each  set  of  namelist  inputs 
within  the  ii^Hit  file.  This  allows  the  user  b>  run  difiEnent  types  of  maneuvers  in  one  input  file.  For 
exan^le,  a  si^e  input  file  containing  many  namelist  entries  for  determine  critical  field  l«igtfas  would  look 
like  this: 


TOLTKO 

&DATA  DADTCMD=2J0.  FLAP=15.0.  GWT=  250000.,  .J 

&TKO  HMAX=50..  THTROT=8.0.  THTCLM=  8.0,  VKFAIL=1 10.0,  VKROTAT=:  120.0  / 
&TK02/ 

&TKOARY/ 

TOLRTO 

&DATA  DADTCMD=2 JO,  FLAP=15.0,  GWT=  250000.,  ..J 

ATKO  HMAX=50.,  THTROT=8.0,  THTCLM=  8.0,  VKFAIL=1 10.0,  VKROTAT=120.0  / 
&TK02/ 

&TKOARY/ 

&ROLlMU=l,RCR=16/ 

&ROL2  VKBRAKEslOO.O  / 


G>ntinued  takeoffs  use  die  same  MANUVR  as  takeoffs.  There  is  no  default  for  MANUVR;  MANUVR  is 
input  in  the  main  program  before  namelist  DATA  in  the  input  file. 


MVR  is  the  first  three  characters  of  MANUVR.  When  MVR  is  set  equal  to  TOL’,  the  parameter 
MANUVR  is  read  for  each  set  of  namelist  inputs.  (See  description  of  MANUVR  in  the  previous 
paragrqihs.)  There  is  no  default  for  MVR;  MVR  is  defined  by  the  fir^  three  characters  of  MANUVR. 


THRCRV  is  the  thrust  curve  type.  It  is  a  dnee-characto:  input  variable  that  is  used  to  describe  the  type  of 
thrust  curve  to  be  utilized.  litis  input  variable  allows  the  program  to  distinguish  between  thrust  curves 
containing  difEerent  independent  (Ii^ut)  variidiles.  Exanqiles  of  THRCRV  are  HC  and  ’EPR*.  The  default 
for  THRCRV  is  user  defined  in  subroutine  FORCEX;  THRCRV  is  entered  duough  namelist  DATA2. 


TKOTYHE  is  the  takeoff  type.  It  is  a  seven  character  input  variable  that  is  used  to  describe  the  type  of 
takeoff  as  eidier  'STATIC  m  'ROLLINC'.  This  input  variable  allows  the  {sogtam  to  distinguish  between 
the  thrust  sitings  of  eidier  a  static  or  rolling  takeoff  independmdy  of  die  VKSTART  input  variable.  The 
default  for  TKOTYPE  is  'STATIC;  TKOTYI^  is  entered  through  namelist  TKC/. 
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CanmoD  FLAFDAT 


CommoB  FLAFDAT  contaiiis  the  mtjor  flap  wiaUes. 

IFLAP  is  die  cmreat  dement  of  anays  FLPARY  and  VFLPARY. 

MAXSIZF  is  the  maximum  size  of  atn^  FLPARY  and  VFLPARY.  The  defisult  for  MAXSIZF  is  S; 
MAXSIZF  is  hard  coded  in  subroutine  TAKCXHP.  If  MAXSIZF  is  increased,  die  dimensions  for  arrays 
FLPARY  and  VFLPARY  must  be  increased  accordingly. 

FLPARY  is  die  flap  deflection  array.  This  array  contains  five  elements.  This  array  allows  the  user  to  enter 
in  a  fl^  deflection  schedule  as  a  function  of  calibrated  airqieed.  At  each  airqi^  contained  in  the  flap 
deflection  airspeed  array  (VFLPARY)  the  takeoff  simulation  changes  the  flap  deflection  (FLAP)  to  the 
corresponding  flap  deflection  contained  in  the  flap  detection  array  (FLPARY)  d  a  rate  of  DFLAPDT 
degrees  per  second.  The  flap  deflection  rate  (ISTAJPDT)  is  provided  by  subroutine  FXXABIO' ahidi  is  a 
user  provided  subroutine  called  by  subroutine  FORCEX.  ff  the  last  element  of  FLPARY  is  not  0.0,  the 
sinuilation  will  retract  the  flaps  to  0.0  d^ree  at  die  calibrated  airqieed  contained  in  die  last  element  of 
VFLPARY  or  at  VKFLPMX  Miidi  ever  is  less.  The  default  for  the  ekments  of  FLPARY  are  0.0, 0.0, 0.0, 
0.0,  0.0.  At  this  definih  settiqg,  the  takeoff  simulation  does  not  change  the  flqi  deflection  until  the  flap 
retraction  speed,  VKFLAP,  or  the  iMTirnmn  fl^i  deflection  airspeed  (VKFLPMX)  is  readied.  The 
elements  of  FLPARY  are  entered  throu^  namelist  TKOARY. 

VFLPARY  is  the  flqi  deflection  airspeed  array.  This  array  contains  five  elemeius.  This  array  allows  the 
user  to  enter  in  a  fliqi  deflection  schet^  as  a  function  of  ci^bratedairqieed.  At  each  airspeed  contained  in 
the  flap  deflection  airspeed  amy  (VFLPARY)  the  takeoff  simulation  changes  the  flap  deflection  (FLAP)  to 
the  corresponding  flap  deflection  contained  in  the  flap  deflection  array  (FLPARY)  at  a  rate  of  IX’LAPDT 
degrees  per  second,  Ilie  flap  deflection  rate  (DFLAPDT)  is  provided  by  subroutine  FXXAERO'  which  is  a 
user  provided  sidxoutine  cadled  by  sitiuoutine  FORCEX.  ff  the  last  element  of  FLPARY  is  not  0.0,  the 
simulimon  will  retract  the  flaps  to  0.0  degree  at  the  calibrated  air^ieed  contained  in  the  last  element  of 
VFLPARY  or  at  VKFLPMX  Much  ever  is  less.  The  default  for  the  elements  of  VFLPARY  are  0.0,  0.0, 
0.0, 0.0, 0.0.  At  this  default  setting,  die  takeoff  simulation  does  not  change  the  flap  deflection  until  the  flap 
retraction  speed,  VKFLAP,  or  the  maxinnun  flap  deflection  airqieed,  VKFLPMX,  is  reached.  The 
elements  of  VFLPARY  are  entered  dvougjh  namelist  TKOARY. 
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ComiiioaGEARDAT 


Common  GEARDATconttins  the  mi^  landing  gear  variables. 

IGEAR  is  the  cuneitt  etement  of  amqr  LGRARY. 

MAXSIZG  is  die  maximum  size  of  amy  LXxRARY.  The  definilt  for  MAXSQXj  is  6;  MAXSIZG  is  hard 
coded  in  subroutine  TAKOPP.  If  MAXSIZG  is  increased,  the  dnnensioa  for  array  LGRARY  must  be 
increased  accordingly. 

LGRARY  is  the  landing  gear  drag  array.  This  amy  contains  six  ekmeots.  This  amy  allows  the  user  to 
eater  in  a  landing  gear  dreg  coefBcieat  schedule  as  a  function  of  time  from  die  start  of  landing  gear 
retraction.  When  the  landing  gear  retraction  hd^t  (HGEAR)  is  reached  the  subroutine  GRETRAC  returns 
the  gear  drag  coeffident  increment  (DdXXlR)  as  the  value  contained  in  the  first  eiemmit  of  LGRARY. 
This  value  remains  cufieat  for  one  second.  The  value  contained  in  the  second  element  of  the  amy  rqilaces 
the  gear  drag  coefficient  increment  previously  for  another  1.0  second  interval.  The  gear  drag  coefficient 
increment  (DCDLGR)  must  be  added  where  the  drag  coefficient  (CD)  is  summed  from  Hs  conqxments. 
This  will  usually  be  accoiqilished  in  the  user  provided  subroutine  ‘FXXAERO'.  An  example  table  is 
shown  below.  If  the  last  dement  of  LGRARY  is  not  0.0000,  the  simulation  will  set  DCDLGR  to  0.0000 
after  drag  coefficient  increment  The  defuik  for  die  elements  of  LGRARY  are  0.0, 0.0,  0.0,  0.0,  0.0,  0.0. 
At  this  defoult  settiog,  the  takeoff  siniulation  wiU  reduce  the  drag  coeffident  linearly  over  the  time  for  gear 
retraction  (DTGEAR)  in  seconds.  The  demems  of  LGRARY  are  initialized  in  subroutine  TXXAERO' 
which  is  die  user  provided  subroutme  called  by  subroutine  PORCEX. 


Array 

Q)  (widiootgear 

+  LQIARY 

=  CoCwidigear 

Element 

increment) 

increment) 

1 

0.0280 

0.0220 

0.0500 

2 

0.0280 

0.0240 

0.0520 

3 

0.0280 

0.0280 

0.0560 

4 

0.0280 

0.0160 

0.0440 

5 

0.0280 

0.0070 

0.0350 

6 

0.0280 

0.0000 

0.0280 

Notice  die  totd  landing  gear  increment  is  removed  between  the  Sth  and  6tfa  second  after  the  initiation  of 
landing  gear  retraction. 
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ComiiOB  VECTDAT 


Commoo  VECTDAT  contains  die  nuyor  thrust  ve^ocing  variables. 

IVECT  is  die  cunent  element  of  arrays  XNUARY,  HVCTARY,  and  WCTARY. 

MAXSIZV  is  the  maxinunn  size  of  arrays  XNUARY.  HVCTARY,  and  WCTARY.  The  default  for 
MAXSIZV  is  S;  MAXSIZV  is  hard  coded  in  subroutine  TAKOFF.  If  MAXSCZV  is  increased,  the 
dimensions  for  arrays  XNUARY,  HVCTARY,  and  WCTARY  must  be  increased  accordingly. 

XNUARY  is  the  vectored  thrust  angle  array.  This  array  contains  five  elonents.  At  each  altitude  contained 
in  die  vectored  thrust  altitude  array  (HVCTARY)  or  at  each  calibrated  airqieed  contained  in  the  vectored 
thrust  airqseed  array  (WCTARY)  dm  takeoff  si  ^ulation  changes  the  vectned  thrust  angle  (VTANGLE)  to 
die  cofieqKMiding  vectored  dmist  angle  contained  in  die  vectored  thrust  angle  array  (XNUARY)  at  a  rate  of 
DVECTDT  degrees  per  second.  The  vectored  dmist  angle  rate  (DVECTDT)  is  provided  by  sobroutiiie 
‘FXXENC  which  is  a  user  provided  suixoutine  called  by  subroutine  PORCEX.  If  both  the  HVCTARY  and 
WCTARY  arrays  are  us^,  the  HVCTARY  arr^  takes  precedence.  The  default  for  the  elements  of 
WCTARY  are  0.0,  0.0,  0.0,  0.0,  0.0.  At  this  de^t  setting,  die  takeoff  simulation  does  not  change  the 
vectmed  thnet  angle.  The  elements  of  XNUARY  are  entered  through  namelist  TKOARY. 

HVCTARY  is  the  vectmed  dmist  altitude  array.  This  array  contains  five  elements.  At  each  altitude 
contained  in  the  vectored  thrust  altitude  array  (HVCTARY)  die  takeoff  simulation  changes  the  vectored 
thrust  angle  (VTANGLE)  to  the  cone^nding  vectiHed  thrust  angle  cmitained  in  the  vectmed  dmist  angle 
array  (XNUARY)  at  a  rate  of  DVECTDT  degrees  per  second.  The  vectored  thrust  angle  rate  (DVECTDT) 
is  (novided  by  subroutine  FXXENG' which  is  a  user  provided  subroutine  calted  by  subroutine  PORCEX.  If 
both  the  HVCTARY  and  WCTARY  arrays  are  used,  the  HVCTARY  array  takes  precedence.  The  default 
for  the  elements  of  HVCTARY  are  0.0, 0.0, 0.0, 0.0, 0.0.  At  diis  default  setting,  the  takeoff  simulation  does 
not  change  the  vectored  thrust  angle.  The  el«nents  of  HVCTARY  are  entered  dvough  namelist  TKOARY. 

WCTARY  is  the  vectmed  thrust  ain^ieed  array.  This  array  contains  five  elements.  At  each  calibrated 
airspeed  contained  in  the  vectored  thrust  airspeed  array  (WCTARY)  the  takeoff  simulation  changes  the 
vectored  dmist  angle  (VTANGLE)  to  the  cmiesponding  vectored  thrust  angle  contained  in  the  vectored 
thrust  angle  array  (XNUARY)  at  a  rate  of  DVECTDT  degrees  per  second.  The  vectored  dmist  angle  rate 
(DVECTDT)  is  provided  by  subroutine  TXXENG'  which  is  a  user  provided  subroutine  called  by  subroutine 
FORCEX.  If  bodi  the  HVCTARY  and  WCTARY  arrays  are  used,  the  HVCTARY  array  takes 
precedence.  The  default  for  the  dements  of  WCTARY  are  0.0, 0.0, 0.0, 0.0, 0.0.  At  this  defoult  setting, 
the  takeoff  simulation  does  not  change  the  vectwed  thrust  angle.  The  elements  of  WCTARY  are  entered 
through  namelist  TKOARY. 
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CommooCINDEX 


Gwunon  CINDEX  contaiiis  miyor  landom  access  curve  file  constants. 

MSTRNDX  is  tte  random  access  curves  master  index.  It  is  an  ainy  of  NDXLEN  (3),  integers  initialized 
by  subroutine  OFCNMS,  a  CDC  Cyber  specific  FORTRAN  subroutine. 

NDXLEN  is  the  kngdi  of  the  master  index.  NDXLEN  is  an  integer  constant  equal  to  three;  NDXLEN  is 
initialized  in  subroutine  INICURV. 

LUCURV  is  the  logical  unit  for  the  curve  file.  It  is  an  int^er  variaUe  which  determines  the  local  file  name 
of  the  random  access  curve  file.  The  default  for  LUCURV  is  2  (which  corresponds  to  file  TAPE2): 
LUCURV  is  initialized  in  subroutioe  INICURV.  Onendy,  no  other  value  is  valid  for  this  parameter. 

CmniwMi  RACURV 

Common  RACURV  contains  the  major  random  access  curve  file  control  verifies  as  well  as  the  random 
access  curve  file  names. 

IDBUG  is  die  UFTAS  debug  flag.  It  can  provide  debug  information  concerning  the  UFTAS  random  access 
curve  file  subroutioes.  The  default  for  IDBUG  is  0;  IDBUG  is  entered  thtou^  namdist  DATA2. 

lEXTOR  is  die  extrapolation  override  code.  When  set  to  a  non-zero  value,  lEXTOR  overrides  the  curve 
extrapolation  code.  This  flag  is  intended  to  be  used  in  only  specialized  cases.  The  default  for  lEXTOR  is 
0;  lEXTOR  is  initialized  in  subroutiiie  INICURV. 

KURNAM  is  the  random  access  curve  file  name  array.  It  contains  the  names  of  up  to  99  random  access 
curve  file  names  as  Hollerith  strings  stored  in  an  array  of  type  INTEGER. 

CmnnKMi  VALUES 

Common  VALUES  contains  die  arrays  which  contain  the  values  passed  to  and  fiom  the  random  access 
curve  files.  Examples  for  array  names  are  VALIN,  VAERO,  and  >^NG1NE  for  the  input  values  array,  the 
aerodynamic  values  ouqnit  array,  and  the  engine  values  output  array  respectively.  This  common  block  is 
user  defined  and  largely  determined  by  die  curve  file  structure. 

ComuMNi  TABLES 

Common  TABLES  contains  the  table  arrays  used  to  store  raw  values  from  the  random  access  curve  files. 
Ihe  values  which  are  passed  to  the  output  values  arrays  are  interpolated  from  these  raw  values.  Examples 
for  array  names  are  TAERO  and  TENGINE  for  the  aerodynamic  output  table  array  and  the  engine  output 
taUe  arnty  reflectively.  This  common  Mock  is  user  defined  and  determined  by  die  curve  file  structure. 
The  size  ^  each  of  the  table  arrays  is  provided  to  the  user  when  die  random  access  curve  file  is  generated. 
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Of  rncoon 


AFPENDK  A:  EQUATIONS  OF  MOTION 

This  section  shows  the  equations  of  motion  used  in  Subroutines  FORCEX,  DERIVGR,  DERIVAT,  and 
DERIVAL.  The  aircraft  is  treated  as  a  point  mass  confined  to  motion  in  a  vertical  plane,  and  the  rotational 
dynamics  have  been  neglected.  This  simplification  requires  the  input  of  the  angular  rates  and  precludes  the 
use  of  this  program  as  a  tool  to  simulate  minimum  control  speeds.  These  rates  are  approximated  by  a  finite 
difference  form  or  input  by  the  user  as  commanded  rales. 

Force  coefficient  equations; 

Cx  =  Cd  -  [Fg  (cos(o  +  ij  -  ly /qSwing  (positive  aft)  ( 1 ) 

Cy  =Cl+ [FG(sin(a  +  iJ  J/qS,**  (positive  up)  (2) 

Equation  of  motion  during  ground  roll: 

dV/dt  =  (g/Wgig,,)  {~Wjn)a[sin(Yninny)  llr«iw»yCOS(Yignw*y)]  +  qSwiBg(CYtlnaiway  "  Cx)}  (3) 
Equation  of  motion  along  flightpath: 

dV/dt  =  (g/Wg^)  {-Wg^sin(Y)  -  qS^(Cx)}  (4) 

Equation  of  motion  normal  to  flightpath: 

V^dydt)  =  (gr^^)  { -Wpg.^os(Y)  +  qS™g(CY)}  (5) 


Load  factor  equation: 

n,  =  qSrt«gCY/(WpgJ  +  [1.0  -  cos(y)] 
Rate  of  Climb  equation: 


R/C  =  V,sin(Y) 


where: 

Cd 

Cl 

Cx 

Cy 

Fe 

Fg 

dt 

g 

Hz 

q 

R/C 


aerodynamic  drag  coefficient 
aerodynamic  lift  coefficient 
force  coefficient  along  flighq^ath 
force  coefficient  normal  to  flighqjath 
ram  drag 
gross  thrust 
delta  time 

acceleration  due  to  gravity 
load  factor 
dynamic  pressure 
rate  of  climb 
reference  wing  area 
true  airspeed 
gross  weight 
angle  of  attack 
flightpath  angle 
runway  slope 

runway  friction  coefficient  (either  braking  or  rolling) 


(6) 


(7) 
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Rotational  rate  appronrimations  by  finite  diflfcrenct  fiwrm 


0  -7+a 

Differentiating  with  respect  to  time 
de/dt-dydt-i-da/dt 
Divide  equaticm  S  by  V, 

dydt  -  [g/(V,Wp«)]  {-Wp«cos(7)  +  qS,i„(CY)} 

Hnite  difference  s^roximation 
do/dt  =  (a  -  o^At 

Substituting  equations  10  and  1 1  into  equation  9 

d0/dt  -  [g/(V.Wp«)]  <-W„«cos(7)  +  qS^(Cv)>  +  (a  -  OjVAt 
udiere: 

dt  -  delta  time 
At  -  integration  step  size 
a  -  cuirent  angle  of  attack 
Oj  -  previous  angle  of  attack 
7  -  flightpath  angle 
6  -  pitch  attitude 


(8) 

(9) 

(10) 


(11) 


(12) 


Landing  equations 

The  flare  height  can  be  defined  as  a  function  of  the  flare  radius  (R)  and  the  flare  radius  can  be 
represented  using  the  circular  centripetal  acceleration  equation.  For  constant  normal  load  facto 
(iiz)  and  constant  airspeed  (Vt  ) 

*pp 

hfl«  -  Yto  -  Y,pp  -Rcos7n)-Rcos7^-R(cos7n>-cos7,pp)  (13) 

a„-V  "/R  -g(n,-1.0)  (14) 

*FP 
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Substituting  equation  14  Ibr  R  into  eqwuton  13, 


hftae  -  [V,  *(COSYid  -  COSYiwV«l/(tir  -  10)  (15) 

■IV 

Solving  for  normal  load  factor  as  a  function  of  tbe  two  fUghtpadi  angles  and  approach  speed, 

n,  -  (V,^^cosYid  -  cosYipp)/g  hfl,,]  +  1.0  (16) 


where: 


Sg  -  acceleration  normal  to  flighqpatb  Yapp  -  approach  flighq>ath  angle 

g  -  acceleration  due  to  gravity  Yn>  ~  touchdown  flightpatfa  angle 

him  -  flare  initiation  altitude  (AGL) 
na  -  normal  load  factor 
R  -  flare  radius 
V,^  -  iqiproach  true  airspeed 

This  gives  subroutine  FLARENZ  a  starting  point  for  iterating  on  normal  load  factor  to  match  tbe 
sink  rate  at  touchdown. 


Using  the  following  equation  for  kinetic  energy,  brake  energy  is  calculated  with  equation  18; 


EK«dc-‘A(Wp«/g)V,^2 

(17) 

Emu  ■  Ekbaic  +  2(Fn  -  CcqSwii^  V|^  At 

(18) 

where: 

Cd  ■■  aerodynamic  drag  coefficient 

Fn  -  net  duust 

Emw  ~  brake  energy 

Efcjaoic  ~  kinetic  energy 

g  -  acceleration  due  to  gravity 
q  -  dynamic  pressure 

Swi«  -  reference  wing  area 

V,^  -  true  ground  speed 
-  gross  weight 

At  -  delta  time 
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Main  Gear  Nonnal  Force  equations  daring  braking 


The  normal  force  on  the  main  gear  can  be  determined  by  summing  the  forces  in  bodi  the  x-  and 
y-axes  and  summing  the  moments  about  the  center  of  gravity.  The  rolling  coefficient  of  friction  is 
applied  to  foe  nose  gear  nonnal  force  and  foe  tealdng  coefficient  of  friction  is  applied  to  foe  main 
gear  normal  force.  The  following  equations  assume  no  aorodynamic  loading  of  the  tail,  no 
moments  from  filers  or  ofoer  control  surfaces,  and  the  center  of  gravi^  is  located  fiMwaid  of  foe 
braking  gear  (the  main). 

Slimming  the  forces  in  foe  x-axis. 


dVydt  =  Cx  (q  Nbo«  +  Ikate  Nb^t  (19) 

Summing  foe  fcHces  in  foe  y-axis, 

0  =CY(qS,rt«)-Wp^OSY«iwty  +NK»e  +  Niafa  (20) 

Simuning  foe  moments  about  foe  center  of  gravity, 

(21) 


Solving  for  N-,;.. 

AJ  [j^JgWJdt + -»•  [WUo«y^-  Cyi4S^)\X„ 


where: 

Cx  =  force  coefficient  along  flighq«fo 
Cy  =  force  coefficient  mninal  to  flightpafo 
dV/dt  =  acceleration 

g  =  acceleration  due  to  gravity 
N--.  =  main  gear  normal  force 
NpoK  =  nose  gear  normal  force 
q  =  dynamic  pressure 
Swim  =refofcnce  wing  area 
Wgro,  =  gross  weight 

=  horizontal  distance  from  main  gear  to  center  of  gravity 
XooK  =  horizontal  distance  from  nose  gear  to  center  of  gravity 
Yc,  =  vertical  distance  from  ground  to  center  of  gravity 
Yi»*.y=  runway  slope 
Pmb  =  braking  friction  coefficient 
Preoh*  =  rolling  friction  coefficient 

Distances  are  ail  positive  values.  Any  units  for  distance,  if  tqiplied  consistently,  will  work  in 
these  equations. 


i 
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AFPENDK  B:  SOURCE  CODE  LISTING 


This  section  provides  the  user  widi  a  complete  source  code  listing  of  the  program  and  calling  subroutines. 
Curve  file  subroutines  are  not  included. 


Main  Program 


& 


& 


& 

& 


& 

& 

& 


& 

& 


& 


PROGRAM  TOLAND 

TOLAND 

1 

TOLAND 

2 

SUBROUTINES-  1 

INITIAL  SPOIL  FLARE  SPEED  INTG 

TOLAND 

3 

PITCH  TVECTOR  ROLL  DERIVGR  STEDYST 

TOLAND 

4 

FRETRAC  TAKOFF  ERROR  OERIVAT  FLARENZ 

TOLAND 

5 

GRETRAC  LANONG  HALT  DERIVAL  ITRLND 

TOLAND 

6 

SPOBRAK  APPROCH  ATMOSPH  INTX 

TOLAND 

7 

TOLAND 

8 

FUNCTIONS- 

DGDT  DVTDH  DDELTDH  INTERP  ZEROX 

TOLAND 

9 

DVDT  DADH  DSIGDH 

TOLAND 

10 

TOLAND 

11 

USER  PROVIDED  SUBROUTINES- 

TOLAND 

12 

INICURV  TXXAERO*  ‘FXXe«S'  SPOOLDNF  GENMU 

TOLAND 

13 

FORCEX  GEFFECT  SPOOLUP  SPOOLDNR 

TOLAND 

14 

TOLAND 

15 

TAKEOFF,  LANDING  AND  REFUSED  TAKEOFF  SIMULATION 

TOLAND 

16 

TOLAND 

17 

DOUBLEPRECISION  DTIME,OTIMEJ,TIME 

CTRL 

1 

PARAMETER  {LUIN=3.LUOUT»4) 

CTRL 

2 

COMMONKm/ 

DTIME.DTIMEJ,ICOUNT4DEBUG,KENG.UNENUhUJUMSG,NCOUNT, 

CTRL 

3 

NEQ.NPAGE,TIME.TIMEROL 

CTRL 

4 

COMMON^AIRCRFT/ 

AOA3PTAR.B,OGPCT,CtALPH.CONFIG.DTDTMX.FLT,GWT.HZ. 

AIRCRFT 

1 

LOAOING,SVVING,THTMAX,WNGLOD,XLFMAX 

AIRCRFT 

2 

COMMON/AERO/ 

CX.CY,DADTCMD,DCOX,DCLX,DTDTGEX,FLAP,FLPPCT,QS. 

AERO 

1 

SPDBRK.SPOILER,VKCAS,VKTAS 

AERO 

2 

COMMON/ENGINE/ 

An-AMACH.OTFAIL^PR.FE,FG,FGPCT,NENG,PWRCOOE. 

ENGINE 

1 

REVNDX.RC,THRUST.VTANGLE,Wm;(EN6,XENGFLD, 

B4GINE 

2 

XENGOUT,XIDLE,XMIUZFN 

BIGINE 

3 

COMMON/VECTOR/ 

HVECT.WECT 

VECTOR 

1 

COMMON/AIRBORN/ 

1 

1 

AIRBORN 

1 

COMMON/AIRSPECV 

vkabrk.vkapp.vkbrake,vkend.vio:ail.vkfiap.vkflpmx, 

AIRSPED 

1 

VKMCG.VKROTAT.VKSTART,VKWIND,VWIND 

AIRSPED 

2 

COMMON/RUNWAY/ 

ABARG>V0AABRK.BRAKMU.6RKFCTR,GAMMARW,GRW.HAGL. 

RUNWAY 

1 

HCLEAR,HFLARE.HGEAR,HRUNWAY,IMU,RCR,ROIIMU,tiMEFLO, 

RUNWAY 

2 

TIMEBRK.TIMEFLP,TiMESBK.TIMESPUXMU 

RUNWAY 

3 

DOUBLEPRECISION 

VTAS,DISTACCa,VTASJ,RKGRND 

INTEG 

1 

COMMON/INTEG/ 

VTAS,OISTACCEL.VTASJ,RKGRND(20) 

INTEG 

2 

DOUBLEPRECISION 

FPVTAS,GAMMAR.FPOIST, PRESALT, FPACCEL.DGDTR.VHAS, 

FPINTEG 

1 

ROC,RKAIR 

FPINTEG 

2 

COMMON/FPINTEG/ 

FPVTAS,GAMMAfl.FPDIST.PRESALT,FPACCEUDGDTR,VHAS, 

FPINTEG 

3 

ROC,RKAIR(40) 

FPINTEG 

4 

COMMON/ATMOS/ 

tempr,press,rhoafps,viscosk.delta.sigma,theta.dtempf 

ATMOS 

1 

PARAMETER  (ASL>661.48,FPSKTSs1.687806,G<32.174, 

CONST 

1 

RX>57.29577951306.TSLF«59.0,ZEROs0.0) 

CONST 

2 

COMMON/CONST/ 

ASLSQR5,TWOOVR7 

CONST 

3 
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Source  Code  Listing  B>1 


LI  LLLL^ILLLLL 


LOGICAL  AOA()FL6JRKFLAaCLRHGT,Efm>M3,FAILRG,FLAPFLG,FPCrFL^  FLAGS 

&  GBlAG.LGRFLAGAJFTOFF,OVERFlG.REVFLAG.REVRSE.ROTATE.  FLAGS 

&  RTOFLAG,SBKFlAG.SimAG.SPOOL.STEADY,TERMFLG,VECTFLQ.  FLAGS 

&  VFFLAG,WRITrrR  FLAGS 

COMMON/FLAGS^  AOAOFIG,BRKFLAG,CLRHGT,ERRFLAG.FAILRG.FLAPFLG,  FLAGS 

&  FPCTFLG.GEFLAG.LGRFLA6.UFT0FF,0VERFIjG.REVFUG.  FLAGS 

&  REVRSE,nOTATE,RTOFLAG.SBKFLA6.SPLFUG,SPOOL.STEAOY,  FLAGS 

&  TERMFLG,VECTRG,VFFLAG.WRmTR  FLAGS 

CHARACTER  ENGGRP*3.FAILGRP*3,FAILMOO*5.FAILSr4.MVR*3,MANUVR*6,  CHARY 

&  THRCRV3.TKOTYPE*?  CHARY 

COMMON/CHARY/  ENGGRP,FAILGRP.FAiLJylOD,FAILST,MYR,MANUYR,THRCRY,  CHARY 

&  TKOTYPE  CHARY 

COMMON/FLAPDAT/  IFLAP.MAXSI2F,FLPARY(5),YFLPARY(5)  FLAPDAT 

REALLGRARY(6)  GEARDAT 

COMMONA3EAROAT/  IGEARjyiAXSIZG,LGRARY  GEARDAT 

COMMOlWECTDAT/  IYECT.MAXSIZY;(NUARY(5).HYCTARY(5),YYCTA^^  YECTDAT 

COMMON/CINDEX/  MSTRNDX(3),NDXLEN.LUCURY  CINDEX 

COMMON/RACURY/  IDBUG,IEXTOaKURNAM(99)  RACURY 

LOGICAL  MOREFLG  TOLAND 

NAMELISTyDATA/CGPCT,DADTCMD,DTEIylPF,FLAP,GAMMARW,GWTO,HCLEAR,  TOLAND 

&  HRUNWAY.YKWIND  TOLAND 

NAMEUST/DATA2/AOA3PT.CONFIG.DCDX.DCLX,DTIME,DTFAIL.ENGGRP.EPR,  TOLAND 

&  FAILGRP.FA1LM0D,FAILST,FLPPCT,FLT,FLTNDX.FGPCT,  TOLAND 

&  IDBUG,JDEBUG,LOADING.iJUMSG,PWRCODE,RC.REYFUG,  TOLAND 

&  ROLjLJMU,SPDBRKO.THRCRY.YKMCG;(ENG;(ENG^  TOLAND 

TOLAND 

OPEN  INPUT  AND  OUTPUT  FILE  TOLAND 

OPEN  (UN1T=LU1N,F1L£*‘  •)  TOLAND 

OPEN  (UNrr=iUOUT,RLE»‘  ■)  TOLAND 

TOLAND 

MANUYR  TKO.TOLTKO  TAKEOFF  TOLAND 

LND.TOLIND  LANDING  TOLAND 

RTO.TOLRTO  REFUSED  TAKEOFF  TOLAND 

READ(LUIN,1001,ENDr99)MANUYR  TOLAND 

FORMAT(A6)  TOLAND 

TOLAND 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREYIOUS  RUN  (IF  ANY),  THEN  TOLAND 

READ  NAMELIST  DATA  FROM  INPUT  FILE  (LUIN).  PARAMETERS  NOT  RESET  TOLAND 

HERE  RETAIN  THEIR  YALUE  FOR  THE  SUBSEQUENT  RUN  IF  NOT  EXPUCITLY  TOLAND 

DECLARED  IN  NAMEUST  DATA  TOLAND 

25CALLINmAL(‘ZERO’ALPHAFLAPO,GWTO.SPDBRKO)  TOLAND 

READ(LUIN,DATAEND:^)  TOLAND 

READ(LUIN,DATA2)  TOLAND 

CALLINmAL(‘MAIN’ALPHAFLAPO,GVYTO,SPOBRKO)  TOLAND 

IF(MOREFLG)WRrTE(LUOUT,2001)  TOLAND 

2001  FORMATflh  TOLAND 


1 

2 

3 

4 

5 

6 

7 

8 
1 
2 

3 

4 
1 
1 
2 
1 
1 
1 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
61 
62 
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IF  (MANUVR.EQ.TKO  '.OaMANUVREaTOLTKOO  TTCN 

TOLAND 

QMM 

TAKK)FF  ROUTINE 

TOLAND 

CALl.TAKOFF(ALPHA.QDtST) 

TOLAND 

WRITE(LUOUr^)  FLT,GWrO,OCOXFQPCT,VKMCG,FLAPO,OTB4PFJ^ 

TOLAND 

& 

FAILST,B1GQRP 

TOLAND 

2002 

FORMAT(  ■  FLT  .‘.F8.4,'  WT  -‘.FBA’  OCO  ='.F7.4, 

TOLAND 

& 

•  FGPCT  -’.F?.!.’  VKMCG  «‘.F7.i;  FLAP  •'HM 

TOLAND 

& 

'  DTBIIP  DEGREES  F  V  Da  .•.F7.4. 

TOLAND 

& 

'  FAILST  B4GGRP  •‘Mi) 

TOLAND 

aSEIF(MANUVR.EQ.mO  '.ORJllANUVR£Q.TOLRTCy)  THEN 

TOLAND 

QMM 

REUSED  TAKEOFF  ROUTINE 

TOLAND 

CAa  TAKDFF(ALi>HA,GOIST) 

TOLAND 

CALLR0Li(ALPHA,GDI8T) 

TOLAND 

WRITEOJUOUr^)  FLT,GmOJXX)X,FGP(n^,VKMCaFUUH)JI(TB« 

TOLAND 

& 

FAILST.ENGGRP 

TOLAND 

aSEIF(MANUVR.EaiND  '.ORJyiANUVRKLTOLLND^  THB4 

TOLAND 

QMM 

LANDMG  ROUTINE 

TOLAND 

CALLLANONG(ALPHA} 

TOLAND 

WRrTE(LUOUr^)  FLT,DCOX.DTEMPF,BRKFCTR4XXX.FLAPO 

TOLAND 

2003 

FORMAT!  ‘  FLT  =‘,F12.4;  DCD  «‘.F7.4;  DTEMP  «*.F6.1,‘  DEGREES'. 

TOLAND 

& 

TJ:  BRKFCTR  =',F8.3,'  Da»'.F7.4.'  FLAP  «'.F6.1./) 

TOLAND 

ENDIF 

TOLAND 

MOREFLG>.TRUE 

TOLAND 

IF(MVR.EQ.Ta')THEN 

TOLAND 

GO  TO  IS 

TOLAND 

ELSE 

TOLAND 

GO  TO  25 

TOLAND 

B4DIF 

TOLAND 

99  CALL  HALT(LUiN,LUMSG,LU(XJr,‘  TOLAND  NORMAL  TERMINATKXf) 

TOLAND 

END 

TOLAND 
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Source  Code  Listing  B-3 


i8S8SSS388;S8iSSS3i3i::ld{S(2ibt;;!i::i2i88Q88iS8 


SiAcoittiiie  INITIAL 


itfalO 


SUBRCX/HNE  MmAUQROUP,ALiWLAPO,6WrO,SPDBRKO) 
Cr~  THIS  SU8R0UTVC  INmAUZES  PROGRAM  VARIAB^ 

C**** 


CHARACTEFTA  GROUP 
DOUBLB>RECISION  DTIME.DTIMEJ,TIME 
PARAMETER  (LJUIN«3,UXXn^-4) 

COMMON/CTRL/  0TIME.DTIMEJ.I(XXiNT4)EBUGJ<ENG.UNENUMM^ 

&  NEQNPAGE.T1ME,TIMBX)L 

COMMON^AiRCRFT/  AOA3PTMB,CGPCT,aALPH,CONFIG.DTD1MX.FLT,GWr,HZ, 
&  LOADi^K3.SWING,THTMAX.W^IGLOD;aJM^ 

COMMON/AERCV  CX.CY,DAim»i}JXX>XDCLX.DTDTGEX.FlAP,FL^ 

&  SPDBRK.SP0IL9,VKCAS,VKrAS 

COMMON/ENQINE/  ArTAMAlC>14nFAn^PR,FE^,FQPCTJ4B«3,PWRCODE, 

&  REVN0XRC.T>ff«JST.WAN6LE,VVRJEU(BlG.XENGFm^ 

&  XENGOUT^aDLE^OylLZFN 

COMMONA^ECTOR/  HVECTWECT 

COMMONMIRBORW  ALPHAjALPHMX^TDT,GAMMAPP,ROCFPM,THETAF;a^;(L^^ 
COMMONMIRSPBD/  VKABRK,\A(APP,VKBRAKE.\n<BI).VKFAIUVKFLAP 
&  \A<MCG,VKROTAT,VKSTART.VKWIND,VW^ 

COMMON/RUNWAY/  ABARGAOAABRK.BRAKMU.BRKFCTaGAMMARW.GRW.HAGL, 


&  HCLEAaHFLARE,HGEAaHRUNWAY,IMU.RCaROLLMU,TIMEFLD, 

&  TiMEBRK,TIMBLP,TIMESBK.TlMESPUayiU 

DOUBLEPRECISION  VTASJ)ISIACCEL.VTASJ,RKGRND 
COMMONANTEG/  VTAS4)iSTAlCCEL.VTASJ,RKGRNO(20) 

DOUBLEPREaSION  FPYTAS.GAMMAaFPOiST,PRESALT,FPACCEL.DGDTR,VHAS, 

&  ROC,RKAIR 

COMMON/FPINTEG/  FPYTAS,GAMMAaFPOiST,PRESALT,FPACCa.DGDmVHAS. 

&  ROC,RKAIR(40) 

COMMON^ATMOS/  TEMPR,PRESS,RHOAFPS,VISCOSK,DELTA.SIGMA.THETA.DTBylPF 
PARAMETER  (ASL;»«61.48,FPSKTSr1.687806.Gs  32.174, 

&  RX«57.29577951308,TSLF«59.0.ZERO=0.0) 

COMMON/OONST/  ASLSQRS.TW00VR7 

LOGICAL  AOAOFLG,BRKFLAG.CLRHGT,ERRFLAG,FAILFLG,FLAPaG,FPCTFLG. 

&  GEFLAQ,LGRFLAG.UFTOFF.OVERFLG,REVFLAG,REVRSE,ROTATE, 

&  RTOFLAG,SBKFLAG.SPLFLAG.SPOOL,STEAOY,TERMFLG.VECTFLG, 

&  VFFLA6.WRrnTR 

COMMON/FLAGS/  AOAOFIG.BRKFLAG,CLRHGT,ERRFLAG,FAILFLG,FLAPFLG, 

&  FPCTFLG,GEFIAG,LGRFLA6,UFT0FF,0VERFLG,REVFUG, 

&  REVRSE.ROTATE.RTOFLAG,SBKFLAG,SPLFLAG,SPOOL,STEAOY, 

&  TERMFLG.VECTFLG,VFFLAG,WRrTTrR 

CHARACTER  ENGGRP*3,FAUGRP*3,FAILMOD*5,FAIL5r4,MVR^,MANUVR*6, 

&  THRCR\r3.TK0TYPE7 

COMMONK^fARW  ENGGRP,FAiLGRP.FAILMOO,FAiLST.MVR,MANUVR,THRCRV, 

&  TKOTYPE 

COMMON/FLAPDAT/  IFLAPjyiAXSIZF,FLPARY(5),VFLPARY(5) 

REALL6RARY(6) 

COMMONGEARDAT/  IGEAR,MAXSIZG,LGRARY 

COMMON/VECTDAT/  IVECT,MAXSIZVANUARY(5),HVCTARY(5),WCTARY(5) 


INITIAL 

INITIAL 

INITIAL 

INITIAL 

CTRL 

CTRL 

CTRL 

CTRL 

AIRCRFT 

AIRCRFT 

ABK) 

ABRO 

ENGINE 

BIGME 

VECTOR 

AIRBORN 

AIRSPB) 

AIRSPB) 

RUNWAY 

RUNWAY 

RUNWAY 

INTEG 

INTEG 

FPINTEG 

FPWTE6 

FPINTEG 

FPINTEG 

ATMOS 

CONST 

CONST 

CONST 

FLAGS 

FLAGS 

FLAGS 

FLAGS 

FLAGS 

FLAGS 

FLAGS 

FLAGS 

CHARV 

CHARV 

CHARV 

CHARV 

FLAPOAT 

GEAROAT 

GEARDAT 

VECTDAT 


1 

2 

3 

4 


1 

2 

3 

4 
1 
2 
1 
2 
1 
2 
3 
1 
1 
1 
2 


2 

1 


2 


3 


4 


1 

1 

2 

3 

1 

2 

3 

4 

5 

6 

7 

8 
1 


2 

3 

4 


1 
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COMMON/RACURV/  IOBUG,IEXTOR.KURNAlyl(99)  RACURV  1 

LOGICAL  MSGaAG  INITIAL 

DATA  DAOTCMD,  DCDX,  DCLX.  DTDTGEX.  DTEMPF.  DTIME.  EPR,  FAILGRP,  FAILMOD,  MITIAL 
&  /  ^S,  0.0,  0.0,  1.0,  0.0,0.1000,  0.0,  •OB',  •SEIZE,/,  MITIAL 

&  FAILST,  GAMMARW,  HRUNWAY,  HCLEAR,  ICOUNT,  LUMSG,NPAGE,  ROUMU  INITIAL 
&  /  IDLE,  0.0,  0.0,  50.0,  1,  0,  58,  0.025/  INITIAL 

&  VKMCG  INITIAL 

&  /  0.0/  INITIAL 

DATA  FLPARY  /D.0,0.0,0.0,0.0,0.(y,VFLPARY/0.0, 0.0, 0.0, 0.0, 0.0/  INITIAL 

&  ,HVCTARY/0.0,0.0,0.0,0.0,0.Q/,WCTARY/999.,998.,990.,999.,999y  INITIAL 

&  ,XNUARY  /0.0,0.0,0.0,0.0,O.Q/,MAXSiZF,MAXSIZ6,MAXSiZV/5,6,5/  INITIAL 

IF  (GFXXIP.EQ.'ZEROITHEN  INITIAL 

INITIALIZE  CONSTANTS.  INITIAL 

ASLSQR5  =  661.48*SQRT(5.0);TWOOVR7s2.Q/7.0  INITIAL 

ASLSQR5  sASL*SQm’(5.0)  INITIAL 

TWOOVR7= 2.017.0  INITIAL 

INITIAL 

INITIALIZE  MVR  WITH  THE  RRST  THREE  CHARACTERS  OF  MANUVR.  THIS  INITIAL 

ALLOWS  THE  PROGRAM  TO  DiSTINGUiSH  IF  THE  INPUT  RLE  CONTAINS  ALL  INITIAL 

ONE  TYPE  OF  MANEUVERS  O-E.  RTOS)  OR  A  VARIETY.  IF  THE  INPUT  INITIAL 

FILE  CONTAINS  A  VARIETY,  THE  PROGRAM  WILL  LOOP  TO  UNE 15  TO  READ  INITIAL 

THE  NEW  MANUVR  INSTEAD  OF  UNE  25.  INITIAL 

MVR»MANUVR(1:3)  INITIAL 

INITIAL 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREVIOUS  RUN  (IF  ANY),  INITIAL 

BEFORE  READING  NAMELIST  DATA  FROM  INPUT  RLE  (TAPES).  INITIAL 

PARAMETERS  NOT  RESET  HERE  RETAIN  THOR  VALUE  FOR  THE  SUBSEQUENT  INITIAL 

RUN  IF  NOT  EXPLICITLY  DECLARED  IN  NAMELIST  DATA.  INITIAL 

AOA3PT  :cZERO  INITIAL 

DTFAIL  =ZERO  INITIAL 

ENGGRP  ^-NUL'  INITIAL 

FLAP  =-1.0  INITIAL 

FPCTRG  =. FALSE  INITIAL 

GWTO  =  ZERO  INITIAL 

IDBUG  =  0  INITIAL 

JDEBUG  =  0  INITIAL 

REVFLAG  =. FALSE  INITIAL 

TIMEROL  =  ZERO  INITIAL 

VKWIND  =  ZERO  INITIAL 

XENG  =  ZERO  INITIAL 

XENGFLD  =  1.0  INITIAL 
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asE 

NTIAL 

63 

BVTIAIJZELUMSG. 

MmAL 

F  (LUMSG.Eao  .OR.  LUMSG£Q.LUIN)  THBJ 

MTIAL 

UJMS6-LU0UT 

INRIAL 

66 

aSBF  (LUMSG.NE1U0UT  AND.  .NOT.(MSGRAG))  THEN 

INITIAL 

67 

MSGHAG-.TRUE 

INITIAL 

68 

0PB4(UNrrsUJMSG.RLErT0lANDi<SG’) 

INITIAL 

68 

B4DF 

INITIAL 

70 

C**" 

MfTIAUZE  PROGRAM  CONTROL  PARAMETERS. 

INITIAL 

71 

DAOTCMD  «  ABS(DADTCMD) 

INITIAL 

72 

DTIMEJ  sDTIME 

INITIAL 

73 

KB4G 

INITIAL 

74 

UNENUM  »6 

INITIAL 

75 

FLAPaG  *.TRUE. 

INITIAL 

76 

LGRFLAG  ».TRUE 

INITIAL 

77 

VECTRG  *.TRUE 

INITIAL 

78 

BRKFLAG  s. FALSE 

INITIAL 

79 

CLRHGT  s. FALSE 

INITIAL 

80 

BIRFLAG  ». FALSE 

INITIAL 

81 

SBKFLAG  ». FALSE 

INITIAL 

82 

SPLFLAG  a. FALSE 

INITIAL 

83 

TERMFLG  .FALSE 

INITIAL 

84 

VFFLAG  a. FALSE 

INITIAL 

85 

QMM 

MITIAL 

QMM 

INITIALIZE  AIRCRAFT  CONSTANTS. 

INITIAL 

87 

FLAPO  *FLAP 

INITIAL 

88 

GRW  sGAMMARW/RX 

INITIAL 

GWT  *Gwro 

INITIAL 

90( 

WVIND  ::VKWIND*FPStCrS 

INITIAL 

91 

WNGLOD  aGWTIVSWING 

INITIAL 

92 

XMU  sROLLMU 

INITIAL 

93 

c*^ 

INITIAL 

94 

c**** 

TERMINATE  PROGRAM  IF  GROSS  WEIGHT  NOT  INITIALIZED. 

INITIAL 

95 

IF(GWTO.EQ2ERO)  CALL  HALT(LUIN,LUMSG,LUOUT, 

INITIAL 

96 

&  'GROSS  WEIGHT  NOT  INPUT  BY  USER.') 

INITIAL 

97 

QMM 

INITIAL 

98 

QMM 

INITIALIZE  THE  NUMBER  OF  ENGINES  BEFORE  AND  AFTER  BJGINE 

INITIAL 

99 

QMM 

FAILURE 

INITIAL 

100 

IF(NENG.EQ.  0)  NBJG^I 

INITIAL 

101 

IF  p(ENG.EQ2ERO)XENG  »  FLOAT(NENG) 

INITIAL 

102 

IF(FAILST.EQ.'MIL')THEN 

INITIAL 

103 

XENGFLD  =  1.0-XMIL 

INITIAL 

104 

ENDIF 

INITIAL 

105 

XENGOUT  s  XENG  •  XENGFID 

INITIAL 

106 

QMM 

INITIAL 

107 

QMM 

INITIALIZE  LOGIC  CONTROL  VARIABLES  FOR  FLAPS.  GEAR  AND  THRUST 

INITIAL 

106 

QMM 

VECTORING. 

INITIAL 

109 

IFLAP^IGEAR  =IVECT=1 

INITIAL 

110 

QMM 

INITIAL 

111 

QMM 

INITIALIZE  INTEGRATION  VARIABLES. 

INITIAL 

112 

RKGRND(14)  «ZERO 

INITIAL 

113 

RKAIR  (27)  «ZERO 

INITIAL 

114 
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IF  (MANUVaEQ.TKO  mMANUVR.EQ.TOLTKO')THEN 

INITIAL 

115 

• 

QMM 

INITIAUZE  FLAGS  FOR  THE  TAKEOFF  MANEUVERS. 

INITIAL 

116 

AOAOFLG  ».TRUE 

INITIAL 

117 

GEFLAG  ».TRUE 

INITIAL 

118 

UFTOFF  r. FALSE 

INITIAL 

119 

ROTATE  =. FALSE 

INITIAL 

120 

RTOFLAG  FALSE 

INITIAL 

121 

IF(ENGGRP.EQ.m‘)  ENGGRP  « 'AEO' 

INITIAL 

122 

QMM 

INITIAL 

123 

QMM 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREVIOUS  RUN  (IF  ANY). 

INITIAL 

124 

QMM 

PARAMETERS  NOT  RESET  HERE  RETAIN  THEIR  VALUE  FOR  THE 

INITIAL 

125 

QMM 

SUBSEQUENT  RUN  IF  NOT  EXPLICITLY  DECLARED  IN  NAMEUST  TKO. 

INITIAL 

126 

TKOTYPE  * 'STATIC 

INITIAL 

127 

NEQ  =2 

INITIAL 

128 

ALPHA  =ZERO 

INITIAL 

129 

DtST  =ZERO 

INITIAL 

130 

HAGL  =ZERO 

INITIAL 

131 

PRESALT  =HRUNWAY 

INITIAL 

132 

THETAF  =A0A3PT 

INITIAL 

133 

TIME  «ZERO 

INITIAL 

134 

VKFAIL  s2ER0 

INITIAL 

135 

VKROTAT  *ZERO 

INITIAL 

136 

VKSTART  «2ER0 

INITIAL 

137 

XLF  =1.0 

INITIAL 

138 

ELSEIF(MANUVR.EQ.'RTO  ‘.OR.MANUVR.EQ.TOLRTC)  THEN 

INITIAL 

139 

QMM 

INITIALIZE  FLAGS  FOR  THE  REFUSED  TAKEOFF  MANEUVERS. 

INITIAL 

140 

AOAOaG  =.TRUE. 

INITIAL 

141 

w 

GEFUG  =.TRUE. 

INITIAL 

142 

RTOFLAG  =  .TRUE 

INITIAL 

143 

UFTOFF  =. FALSE. 

INITIAL 

144 

ROTATE  =. FALSE. 

INITIAL 

145 

IF(ENGGRP.EQ.'NUL')  ENGGRP  =  'AEO' 

INITIAL 

146 

QMM 

INITIAL 

147 

QMM 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREVIOUS  RUN  (IF  ANY). 

INITIAL 

148 

QMM 

PARAMETERS  NOT  RESET  HERE  RETAIN  THEIR  VALUE  FOR  THE 

INITIAL 

149 

QMM 

SUBSEQUENT  RUN  IF  NOT  EXPUCITLY  DECLARED  IN  NAMELIST  TKO. 

INITIAL 

150 

TKOTYPE  = 'STATIC 

INITIAL 

151 

NEQ  =2 

INITIAL 

152 

ALPHA  =ZERO 

INITIAL 

153 

DIST  =ZERO 

INITIAL 

154 

HAGL  =ZERO 

INITIAL 

155 

PRESALT  =HRUNWAY 

INITIAL 

156 

THETAF  =2ERO 

INITIAL 

157 

TIME  =ZERO 

INITIAL 

158 

VKFAIL  =ZERO 

INITIAL 

159 

VKROTAT  =2ERO 

INITIAL 

160 

VKSTART  =2ERO 

INITIAL 

161 

XLF  =1.0 

INITIAL 

162 

• 

• 
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aSEHHMANUVR.EQ.lM)  mMANUVRfQ.'TOLLNDOTHEN 
C****  INITIALIZE  FU^GS  TOR  THE  UM}tN6M^ 

aoaorjg  ». false 
GEFLAG  .FALSE. 

RTOFLAQ  FALSE 
UFTOFF  =.TRUE. 

ROTATE  =.TRUE. 

IF(ENGGRP.EQ.m')  ENGGRP  *  *A0’ 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREVIOUS  RUN  (IF  ANY). 
PARAMETERS  NOT  RESET  HERE  RETAIN  THEIR  VALUE  FOR  THE 
SUBSEQUBIT  RUN  IF  NOT  EXPUCITLY  DECLARB)  IN  NAMEUST  LND. 
NEQ 

ALPHA  =99.0 
GAMMAPP=  1.0 
HFLARE  =-1.0 
STEADY  =.TRUE. 

VKAPP  =  1.0 
WRITITR  =. FALSE. 

C*^  INITIALIZE  ADDITIONAL  PARAMETERS. 

ALPHMX  =THTMAX 
HAGL  =HCLEAR 
IF(VKFLAP.EQ2ERO)  VKFLAP  =  VKFLPMX 
ENDIF 

CAaSPDBRAK  (‘RESET, SPDBRK,SPDBRK07ERO) 

CALL  SPOIL  (‘RESET, SPOILER,ZERO  ,ZERO) 

ENDIF 

RETURN 

END 


INITIAL  163 

INITIAL  164  J 

INITIAL  165^ 

INITIAL  166 

INITIAL  167 

INITIAL  168 

INITIAL  169 

INITIAL  170 

INITIAL  171 

INITIAL  172 

INITIAL  173 

INITIAL  174 

INITIAL  175 

INITIAL  176 

INITIAL  177 

INITIAL  178 

INITIAL  179 

INITIAL  180 

INITIAL  181 

INITIAL  182 

INITIAL  183 

INITIAL  184 

INITIAL  185 

INITIAL  186 

INITIAL  187 

INITIAL  188 

INITIAL  189  ^ 

INITIAL  190  m 

INITIAL  191 

INITIAL  192 


i 
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BSubroutine  FRETRAC 


SUBROUTINE  FRETRAC(FUU>,\mAPOFUPOT) 

(T^  THIS  SUBROURNE  (X}NTTm  RETRACTION  OF  THE  R>PS  BASED  UPON  RAP 
C****  RETRACTION  SPEED  (VKFLAP)  ANDTHE  DB-TATME  FOR  RAP  RETRACTION 
C****  (DFIAPDT). 

DOUBLEPRECISION  DT1ME.DT»4EJ,TIME 
PARAMETER  (LUIN.3.LUOUT>4) 

COMMONORU  DTIME^TIMEJ,ICOUNTJDQUG.KENG.UNB«jM4JU^^ 

&  NEQ.NPAGE,TIME.T1MBIOL 

LOGICAL  AOAORQ3RKFLAG.CLiWGT,ERRFIAG.FAiLFLG,FLAPFLQ.R>CTFLG, 

&  GEFLAG,LGRFIAG.UFT0FF,0VERFlJQ,REVFlA6.REVRSE.R0TATE 

&  RTOFLAG,SBKFLAG,SPLRAG,SPOOL.STEADY,TB^MFLB.VECTFLG. 

4  VFFLAG.WRmTa 

COMMON/FIAGS/  AOAOFLG.BRKFIAG,CLRHGT,ERRFIAG,FAILFLG.RAPFLG. 

4  FPCTFLG.GEFLAG.LGRFLAG.UFTOFF,OVERFLG.REVFLAG. 

4  REVRSE,ROTATERTOFLAG,S8KFIAG.SPLRAG.SPOOL.STEADY. 

4  TERMRG,VECTRG.VFFlAG,WRrnTR 

COMMONRAPDAT/  IFLAP,MAXSIZF,FLPARY(5),VFLPARY(5) 

DOUBLE  PRECISION  TIMEJ 
LOGICAL  INIFLAP 
IF(.N0T.1NIFLAP)THEN 
C****  INITIATE  FLAP  RETRACTION. 

INIFLAP  =.TRUE. 

UNENUM  =UNENUM-f1 
IFOFLAP  JJ.0)IFIAP  *1 
IF(DFIAPOT  .Ea0.0)  DFIAPDT  *1.0 
IF(IPAP.LE.MAXSIZF)  THEN 
FLAPNEW=FLPARY(IFLAP) 

ELSE 

FLAPNEW=0.0 

ENDIF 

TIMEJ  s  TIME 

TIMEFLP  =  (FLAP  -  FlAPNEWyDFLAPDT 
WRITE(LUOUT,1001)  FIAPNEW.TIMEFLP 
1001  FORMAT(  'FLAPS  RETRACTED  TO '.FAi;  DEGREES  IN  •, 

4  F4.i;  SECONDS.') 

ENDIF 

IF(INIFLAP)THEN 

FLAP  »  FLAP  -  DFLAPDTTLOATfnME  -  TIMEJ) 

IF(FLAP.LEFIAPNEW)  THEN 
FLAP-FLAPNEW 
IF(IFLAP.LE.MAXSIZF)THEN 
IFLAP  =IFLAP  +  1 
VKFLAP  =VFLPARY(IFIAP) 

BIDIF 

INIFLAP  =  . FALSE. 

IF(FIAP.LE0.0)  FIAPRG  « .FALSE. 

ENDIF 

ENDIF 

TIMEJ*  TIME 

RETURN 

END 


FRETRAC 

1 

FRETRAC 

2 

FRETRAC 

3 

FRETRAC 

4 

CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

FLAGS 

1 

FLAGS 

2 

FLAGS 

3 

FLAGS 

4 

FLAGS 

5 

FLAGS 

6 

FLAGS 

7 

FLAGS 

S 

FLAPOAT 

1 

FRETRAC 

8 

FRETRAC 

9 

FRETRAC 

10 

FRETRAC 

11 

FRETRAC 

12 

FRETRAC 

13 

FRETRAC 

14 

FRETRAC 

IS 

FRETRAC 

18 

FRETRAC 

17 

FRETRAC 

18 

FRETRAC 

10 

FRETRAC 

20 

FI«TRAC 

21 

FRETRAC 

22 

FRETRAC 

23 

FRETRAC 

24 

FRETRAC 

2S 

FRETRAC 

28 

FRETRAC 

27 

FRETRAC 

28 

FRETRAC 

29 

FRE1PJIC 

30 

FRETRAC 

31 

FRETRAC 

32 

FFCTTLAC 

33 

FRETRAC 

34 

FRETRAC 

35 

FRETRAC 

36 

FRETRAC 

37 

FRETRAC 

38 

FRETRAC 

30 

FRETRAC 

40 

FRETRAC 

41 
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Subroutine  GRETRAC 


SUBROUTINE  QRETRAC(DCOLGaDTGEAR,HAGL) 

GRETRAC 

1 

C****  THIS  SUBRCXJTINE  CONTROLS  RETRACTION  OF  THE  LANDING  GEAR  AND 

GRETRAC 

2 

C““ 

RETURNS  THE  DRTA  DRAG  COEFFICIENT  OF  THE  LANDING  GEAR  (DCDLGR) 

GRETRAC 

3 

Cr**  BASED  UPON  THE  DELTA  TIME  TO  RETRACT  THE  GEAR  (DTGEAR)  AND  ELAPSED 

GRETRAC 

4 

Cr**  TIME  FROM  GEAR  RETRACTION. 

GRETRAC 

5 

DOUBLEPRECISION  DTIME,DT]MEJ,T]ME 

CTRL 

1 

PARAMETER  (LUIN^,LUOUTs4) 

CTRL 

2 

COMMON/CTRL/  DTIME,DTIMEJ,ICOUNT^DEBUG,KENG,UNENUM,LUMSG,NCOUNT, 

CTFl 

3 

& 

NEQ,NPAGE,TIME.TIMEROL 

CTRL 

4 

LOGICAL  AOAOFLG.BRKFUG.ClflHGT,ERRFUG.FAlLFLG.FLAPFLG.FPCTaG. 

FLAGS 

1 

& 

GEFLAG,LGRFLAG.UFTOFF.OVERFLG.REVFUG,REVRSE,ROTATE. 

FLAGS 

2 

& 

RTOFUG,SBKFLAG,SPLFLAG,SPOOL.STEADY.TERMFLG,VECTFLG. 

FLAGS 

3 

& 

VFFLAG,WRmTR 

FLAGS 

4 

COMMON/FUGS/  AOAOFLG,BRKFUG,CLRHGT,ERRFLAG,FAJLaG,FLAPFLG, 

FUGS 

5 

& 

FPCTaG.GEFLAG,LGRFLAG,UFTOFF,OVERFLG,REVFUG. 

FUGS 

6 

& 

REVRSE.ROTATE,RTOFUG,SBKFUG.SPLFLAG,SPOOL.STEADY, 

FUGS 

7 

& 

TERMFLG,VECTFLG,VFFUG,WRmTR 

FUGS 

8 

REALLGRARY(6) 

GEARDAT 

1 

COMMON/GEARDAT/  IGEAR,MAXSIZG.LGRARY 

GEARDAT 

2 

LOGICAL  INIGEAR 

GRETRAC 

19 

IF(.NOT.INIGEAR)THEN 

GRETRAC 

10 

QMM 

INITIATE  GEAR  RETRACTION. 

GRETRAC 

11 

INIGEAR  =.TRUE. 

GRETRAC 

12 

UNENUM  sUNENUM-ft 

GRETRAC 

13 

IF(IGEAR.LE.0)IGEAR»1 

GRETRAC 

14 

TGEARUP  »  FLOAT(TIME)  +  DTGEAR 

GRETRAC 

15 

WRrTE(LUOUT,1002)  TIME.HAGI,TGEARUP 

GRETRAC 

16 

1002 

FORMAT(  ■  GEAR  RETRACTION  (TIME  =  '.F6.2;  HAGL  » ‘.FS.! , 

GRETRAC 

17 

& 

'  COMPLETE  AT  •,F6.2;  SECONDS)*) 

GRETRAC 

18 

ENDIF 

GRETRAC 

19 

IF(INIGEAR)THEN 

GRETRAC 

20 

OGTIME  =  TGEARUP  -  FLOAT(TIME) 

GRETRAC 

21 

IF(LGRARY(1).EQ.0.000)  THEN 

GRETRAC 

22 

C**« 

GEAR  DRAG  INCREMENT  RSXJCED  UNEARLY  WITH  TIME  IK  DTGEAR 

GRETRAC 

23 

QMM 

SECONDS. 

GRETRAC 

24 

GRFACTR  =DGTIME/DTGEAR 

GRETRAC 

25 

DCDLGR  =DCOLGR*GRFACTR 

GRETRAC 

26 

IF(DCDLGR.LE.O.OOOO)  THEN 

GRETRAC 

27 

QMM 

RESET  VARIABLES  AND  FLAGS. 

GRETRAC 

28 

DCDLGR  s  0.0000 

GRETRAC 

29 

INIGEAR  s. FALSE. 

GRETRAC 

30 

LGRFLAG  « .FALSE. 

GRETRAC 

31 

ENDIF 

GRETRAC 

32 
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ELSE  GRETRAC 

C****  GEAR  DRAG  INCREMENT  OBTAINED  FROM  USER  INPUT  ARRAY,  LGRARY.  GRETRAC 

C****  EACH  ELEMENT  IN  THE  ARRAY  IS  ASSIGNED  TO  DCDLGR  FOR  ONE  GRETRAC 

C****  SECOND  UNTIL  DCDLGR  EQUALS  ZERO  OR  IGEAR  EXCEEDS  MAXSIZG.  GRETRAC 

IGEAR  =  INT(DTGEAR-DGTIME)  +  1  GRETRAC 

IF(IGEAR.LE.MAXSIZG)THEN  GRETRAC 

DCDLGR  =  LGRARY(IGEAR)  GRETRAC 

ELSE  GRETRAC 

C****  RESET  VARIABLES  AND  FUGS.  GRETRAC 

DCDLGR  =0.0000  GRETRAC 

INIGEAR  =. FALSE.  GRETRAC 

LGRFUG  =. FALSE.  GRETRAC 

ENDIF  GRETRAC 

ENDIF  GRETRAC 

BIDIF  GRETRAC 

RETURN  GRETRAC 

END  GRETRAC 
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LILILL 


SnbroutmePnOl 


SUBROUTINE  PIT(>1(MANUVR.ALi>HA4>ADT^ 

THIS  SUBROUTINE  MODULATES  ANGLE  OF  ATTACK  TO  MATCH  AN  INPUT  PITCH 
ATHTUDE  OR  CLIMB  SPEED  IF  LOIlHT  CONDITIONS  ARE  MET.  THERATEAT 
WHICH  ANGLE  OF  AHACK  IS  tNCREASB)  IS  BASED  ON  LOAD  FACTOR  (XLF) 
AND  AN  INPUT  RRST  DBliVATIVE  OF  ALPHA  WITH  RESPECT  TO  TIME 
PADTCMD). 


& 


& 

& 

& 


& 

& 

& 

& 

& 

& 


COMMON/AIRCRFT/  AOA3PTAR.B.CGPCT,CLALPH.CONFlG.DTDTMX,FLT.GWT.HZ. 

LOADING, SWING, THTMAX.WNGLOD;aFMAX 
COMMON/AIRBORN/  ALPHAJALPHMX,DTDT,GAMMAPP,RXFPM,THETAF,XLF,XLFJ 
DOUBLEPREaSION  FPVTAS,GAMMAaFPDIST,PRESALT,FPACCEL.DGDTR,VHAS, 
ROC,RKAIR 

COMMON/FPINTEG/  FPVTAS,GAMMARFPDIST,PRESALT,FPACCEL,DGDTR,VHAS, 
ROC,RKAIR(40) 

PARAMETER  (ASLe661.48,FPSICTSa1.687806,G=  32.174, 
RX=57.295779S1308,TSLF=59.0,ZERO=0.0) 

COMMONmiST/  ASLSQR5,TWOOVR7 

LOGICAL  AOAOFLG,BRKFUG,ClflHGT,ERRFUG,FAILFLG,FLAPFLG,FPCTFLG, 
GEFLAG,LGRFLAG,UFTOFF,OVERFLG,REVFUG,REVRSE,ROTATE, 
RTOFLAG,SBKFUG,SPLFLAG,SPOOL,STEADY,TERMFLG,VECmG, 
VFFLAG,WRmTR 

COMMON/FLAGS/  AOAOFLG,BRKFLAG,CLRHGT,ERRFLAG,FAILFLG,FLAPFLG, 
FPCTFLG,GEFLAG,LGRFUG,UFTOFF,OVERFLG,REVFLAG, 
REVRSE,ROTATE,RTOFUG,SBKRAG,SPLFUG,SPOOL,STEADY, 
TBIMa6,VECTFljG.VFFLAG,WRITITR 
CHARACTER  MANUVRV 
DOUBLE  PRECISION  DT1ME 
IF(DTDTGEX.LE0.0)  DTDTGEX  » 1.0 
IF  (DADTCMDJ.T.0.0)THEN 

REDUCE  ANGLE  OF  ATTACK  -  DAOTCMD  NEGATIVE. 

IF  (MANUVR.EQ.'CUMB')  THEN 
IF(XLF.GE.0.85)THEN 

RFACTOR  =  0.50*DTDTGEX 

ELSE 

RFACTOR  =  025*DTDTGEX 
ENDIF 

ELSEIF(MANUVR.EQ.'LANDING')  THEN 
RFACTOR- DTDTGEX 
ELSEIF(MANUVR.EQ.'ROLL')  THEN 
RFACTORsDTDTGEX*2.0 
ELSEIF(MANUVR.EQ.’ROTATEl  THBI 
RFACTOR  =  1.0 


ELSE 


RFACTOR-1.0 


BIDIF 


PITCH  1 

PITCH  2 

PITCH  3 

PITCH  4 

PITCH  5 

PITCH  6 

PITCH  7 

AIRCRFT  1 

AIRCRFT  2 

AIRBORN  1 

FPINTEG  1 

FPINTEG  2 

FPINTEG  3 

FPINTEG  4 

CONST  1 

CONST  2 

CONST  3 

FUGS  1 

FUGS  2 

FUGS  3 

FUGS  4 

FUGS  5 

FUGS  6 

FUGS  7 

FUGS  8l 
PITCH  14 

PITCH  15 

PITCH  16 

PITCH  17 

PITCH  18 

PITCH  19 

PITCH  20 

PITCH  21 

PITCH  22 

PITCH  23 

PITCH  24 

PITCH  25 

PITCH  26 

PITCH  27 

PITCH  28 

PITCH  29 

PITCH  30 

PITCH  31 

PITCH  32 

PITCH  33 
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ELSEIF(DAOTCMO.GT.O.O)THEN  PITCH 

C**"  INCREASE  ANGLE  OF  AHACK-DADTCMD  POSITIVE.  PITCH 

IF  (MANUVR.EQ.tXIMB  ')  THEN  PITCH 

IFfTHETAF-LETHTiyiAX)  THEN  PITCH 

IF  (XLF.GE.0.9)  THEN  PITCH 

RFACTOR  =  DTDTGEX  PITCH 

ELSEIF(XLF.LT.0.9JWD.XLF.GE0.8)THEN  PITCH 

RFACTOR  «  DTDTGEX‘2.0  PITCH 

ELSE  PITCH 

RFACTOR  =  DTDTGEX*3.0  PITCH 

ENDIF  PITCH 

ELSE  PITCH 

TERMaG  =  .TRUE.  PITCH 

RFACTOR  =  0.0  PfTCH 

WRITE(LUOUTj003)THETAF,THTMAX;aJ  PITCH 

ENDIF  PITCH 

1003  FORMAT(  ‘THE  PROGRAM  HAS  ATTEMPTED  TO  SIMUUTE  A  CUMB',  PITCH 

&  *  OR  PULLUP  THAT  IS  BEYOND  THE  INPUT  UMITS  OF/  PITCH 

&  ■  MAXIMUM  PITCH  ATTITUDE*/  PITCH 

4  'THETA,  MAX  THETA,  LOAD  FACTOR  =',F10.2.  PITCH 

4  ■DEGREES.F10.2,‘DEGREES‘,F102,‘G‘)  PITCH 

ELSEIF(MANUVR.EQ.1ANDING‘)  THEN  PITCH 

IF(XLF.GE.1.0)THEN  PITCH 

RFACTOR  =  DTDTGEX  PITCH 

ELSE  PITCH 

RFACTOR  =  DTDTGEX*2.0  PITCH 

ENDIF  PITCH 

ELSEIF(MANUVR.EQ.'ROLL  ‘)  THEN  PITCH 

RFACTOR  =  DTDTGEX  PITCH 

ELSEIF(MANUVR.EQ.'ROTATE‘)  THEN  PITCH 

RFACTOR  =  1.0  PITCH 

ELSE  PITCH 

RFACTOR  =  1.0  PITCH 

ENDIF  PITCH 

ELSE  PITCH 

TERMFLG  =  .TRUE.  PITCH 

WRITE(LUOUT,1004)  PITCH 

1004  FORMAT(  'NO  PITCH  MODULATION  IS  POSSIBLE.  DADTCMD  IS  SET,  PITCH 

4  'TO  ZERO.')  PITCH 

ENDIF  PITCH 

ALPHA  =  ALPHA +  DADTCMD*FLOAT(DTIME)*RFACTOR  PITCH 

GAMMA  =GAMMAR*RX  PITCH 

THETAF  =ALPHA+ GAMMA  PITCH 

IF  (THETAF.GT.THTMAX>ND.(  UFTOFF))THEN  PITCH 

THETAF  rTHTMAX  PITCH 

GAMMA  =THTMAX- ALPHA  PITCH 

GAMMAR  =GAMMAfftX  PITCH 

ELSEIF  (THETAF.GT.THTMAX  JND.  {.NOT.UFTOFF))  THEN  PITCH 

THETAF  -THTMAX  PITCH 

ALPHA  =THTMAX  PITCH 

GAMMAR  =0.0  PITCH 

BCIF  PITCH 

RETURN  PITCH 

END  PITCH  87 
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SUBR0UTI€SPDBRAK(ACTK)N.8PDBRK.^^ 

C****  THIS  SUBRO(mf€  CONrFX)LS  THE  SPEED  BRAKES  BASH)  UPON  THE  C^ARACT^ 
Cr**  VARIABLE  (ACTION)  AND  THE  TRyE  RATE  OF  CHANGE  OF  SPEE)  BRAKE  ANGLE 
Cr**  (DSBKDT).  THEVAUO  VALUES  FOR  ACTION  ARE:  'RESET 
Cr-  ■DEPLOY',  AND  ■RETRACT. 

DOUBLEPRECISION  OTIME,DTIMEJ,TIME 
PARAMETER  (IJUiN^,LUOUT»4) 

COMMONKm/  DTIME,OTIMEJJCOUNT4)EBUG,KENG,UNENUM,IJUMSG,NCOUNT, 
&  NEQ,NPAGE.T!ME.TIMEROL 

LOGICAL  AOAOFLG.BRKFUV3.CLRHGT,ERRFLAG.FAILRG.FLAPFLG,FPCTFIjG, 

&  GEFLAG.LGRFLAG4JFT0FF,0VERFLG.REVFUG.REVRSE,R0TATE, 

&  rtoflag,sbkflag.splflag.spoousteady,termflg,vectflg, 

&  VFFLAG.WRmTR 

COMMON/FLAGS/  AOAOFLG3RKFUV3.CLRHGT,ERRFLAG,FAILR.G.FLAPFLG, 

&  FPCTFLG,GEFUG,LGRFLAG,UFrOFF,OVERFLG.REVFLAG, 

&  revrse,rotate.rtoflag.sbkflag.splflag,spool,steady. 

&  TERMFLG,VECTFLG.VFFLAG,WRmTR 

CHARACTER  ACTlOfTT 
DOUBLE  PRECISION  TIMEJ 
LOGICAL  INISBK 

IF  (ACnON.EQ.'RESET  ■)  THEN 
INISBK  FALSE 
SBKFLAG  :::  .FALSE 
SPDBRK  sSBKEND 
RETURN 

BjSBF  (.NOT.INISBK)  THBi 

INITIATE  SPEED  BRAKE  DEPLOYMBfT  OR  RETRACTION. 

INISBK  =  . TRUE 
UNENUM-UNENUM  +  1 
IF(DS8KDT.EQ.0.0)  DSBKDT  «  90.0 
TIME)  »TIME 

TIMESBK  »(SBKEND-SPDBRK)/DSBKDT 

IF  (ACnON.EQ.'DEPLOY')  THEN 
WRITE(LUOUT.1005)  SBKBO.RMESBK 
ELSBF(ACTION.EO.'RETRACr)  THBi 
WRITE(LUOUT,1006)  SBKBfl), TIMESBK 
ENOIF 

1005  FORMAT(  'SPEED  BRAKES  DEPLOYED TCy.F5.1,' DEGREES  IN', F5.1, 

&  ■SECONDS.') 

1006  FORMAT(  'SPEED  BRAKES  RETRACTED TO',F5.1,' DEGREES  IN',F5.1, 

&  'SECONDS.') 

ENDIF 

IF(INISBK)THEN 

IF(ACT10N.EQ.'DEPLOY  *)  THEN 

SPDBRK  «  SPDBRK + DS8KDmOAT(TIME  •  TIMEJ) 

IF(SPDBRK.GESBKEND)  THEN 
IMSBK  -.FALSE 
SBKFLAG -.TRUE 
SPDBRK  -SBKBO 
ENDF 


SPDBRAK 
SPDBRAK  : 

SPDBRAK 
SPDBRAK  ^ 

SPDBRAK  ! 

CTRL  1 

CTRL  i 

CTRL  i 

CTRL  < 

FLAGS  1 

FLAGS  : 

FLAGS  ! 

FLAGS  ^ 

FUGS  ! 

FLAGS  ( 

FLAGS  / 

FLAGS  i 

SPDBRAK  ( 

SPDBRAK  i 

SPDBRAK  K 

SPDBRAK  11 

SPDBRAK  M 

SPDBRAK  Vi 

SPDBRAK  U 

SPDBRAK  1! 

SPDBRAK  ie 

SPDBRAK  i; 

SPDBRAK  II 

SPDBRAK  II 

SPDBRAK  2( 

SPDBRAK  2 

SPDBRAK  Z 

SPDBRAK  Z 

SPDBRAK  2 

SPDBRAK  2 

SPDBRAK  2 

SPDBRAK  2 

SPDBRAK  2 

SPDBRAK  2 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK  3 

SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
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ELSE 

SBKFLAG«. FALSE 

SPDBRK  e  SPOBRK .  DSBKDmOAT(TlME  -  TIMEJ) 
IF(SBKB«)1E0.0)  SBKStf) »  0.0 
tF(SP06RKlE.SBKBO)  THEN 

iF(SPDBRiaE0.0)  INISBK  « .FALSE 
SPOBRKsSeKBO 
BiDIF 
BUMF 
BIDiF 

TMEJ^TIME 

RETURN 

END 


SPDBRAK  41 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
SPDBRAK 
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8  15  H!  8  $  ft  ^  t  2$  ft 


Subroiitiiie^fflL 


SUBROUTINE  SP0MACT10N.SI^)ftJER.SPLREN0,DSPLRDT) 

C**~  THIS  SUBROUTINE  (X)NTROLS  THE  SPOILERS  BASED  UPON  THE  CHARACTER 
C****  VARIABLE  (ACTION)  AND  THE  TIME  RATE  OF  CHANGE  OF  SPOILER  ANGLE 
C****  (DSPLRPDT).  THE  VAUD  VALUES  FOR  ACTION  ARE:  HESET 
(T”  ■DEPLOY AND  ■RETRACT. 

DOUBLEPRECiSION  DTIME,DTIMEJ.TiME 
PARAMETER  (LUIN^,LUOUT»4) 

comoN/cmj  DT1ME^T1MEJ,IC0UNT,JDEBUGJ<ENG,UNENUM,LUMSG,NC0UNT, 

&  NEQ,NPAGE.TIME.TIMER0L 

LOGICAL  AOAOFLG,BRKFLAG.aRHGT,ERRFLAG,FAILFLG.FLAPFLG,FPCTaG. 

&  geflag,lgrflag.uftoff,overflg,revflag.revrse.rotate, 

&  rtoflaq,sbkflag.splflag,spool,steady,termflg,vectflg, 

&  VFFLAG,WRrnTR 

COMMON/FLAGS/  AOAOFLG,BRKFLAG,CLRHGT,ERRFLAG,FAILaG.FLAPFLG, 

&  FPCTaG,GEFlAG,LGRFLAG,UFTOFF.OVBIFLG,REVFLAG. 

&  REVRSE.ROTATE,RTOFLAG.S8KFLAG.SPLFLAG.SPOOL,STEADY, 

&  TERMFLG,VECTFLG,VFFLAG,WRrnTR 

CHARACTER  ACTION*? 

OOUBLEPREaSIONTIMEJ 
LOGICAL  INISPLR 

IF  (ACnONm'RESET  ■)  THB< 

INISPLR  FALSE 
SPLFLAG  FALSE 
SPOILBI  «SPLREND 
RETURN 

ELSEIF  (>IOT.INISPLR)  THBI 

C"“  INITIATE  SPOILER  DEPLOYMBR  OR  RETRACTION. 

INISPIR  =  .TRUE 
UNBIUM  =  UNENUM4-1 
IF(DSPLRDT.EQ.0.0)  DSPLRDT = 90.0 
TIME!  =TIME 

TIMESPL  s(SPLRB40-SP0ILERyDSPLRDT 
IF  (ACTKDNEQ.'DEPLOY^)  TH0< 

WRITE(LUOUT.1005)  SPLRe«}, TIMESPL 
ELSEIF(ACTION.EQ.^RETRACr)  THBi 

WRITE(LUOUT,1006}  SPLRBID.TiMESPL 
ENDtF 

1005  FORMAT(  ■SPOILERS DEPLOYED TO',F5.i; DEGREES IW,F5.1, 

&  ■SECONDS.^) 

1006  FORMAT(  ■SPOILERS  RETRACTED Ta,F5.i;  DEGREES  Ilf, F5.1. 

&  ■SECONDS.^) 

B4DIF 

IF(MISPLR)THEN 

IF(ACTION.EQ.^DEPIOY  ■)  THEN 

SPOILBI  s  SPOILER  +  DSPLROraOAT(TIME  -  TIMEJ) 
IF(SPOa£R.GESPLREND)  THB< 

MSPLR  -.FALSE 
SPLFLAG  -.TRUE 
SPOILBI  -SPLRBO 
ENDF 


SPOIL 

1 

SPOIL 

2 

SPOIL 

3 

SPOIL 

4 

SPOIL 

5 

CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

FLAGS 

1 

FLAGS 

2 

FLAGS 

3 

FLAGS 

4 

FLAGS 

5 

FLAGS 

6 

FLAGS 

7 

FLAGS 

8 

SPOIL 

8 

SPOIL 

9 

SPOIL 

10 

SPOIL 

11 

SPOIL 

12 

SPOIL 

13 

SPOIL 

14 

SPOIL 

15 

SPOIL 

16 

SPOIL 

17 

SPOIL 

18 

SPOIL 

19 

SPOIL 

20 

SPOIL 

21 

SPOIL 

22 

SPOIL 

23 

SPOIL 

24 

SPOIL 

25 

SPOIL 

26 

SPOIL 

27 

SPOIL 

26 

SPOIL 

2S 

SPOIL 

3C 

SPOL 

31 

SPOIL 

3i 

SPOIL 

X 

SPOIL 

3t 

SPOIL 

3! 

SPOIL 

31 

SPOIL 

31 

SPOIL 

a 

SPOIL 

a 

SPOIL 

41 
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aSE  SPOIL  41 

SPLFLAG*. FALSE  SPOIL 

SPOLER- SPOILER -DSPLR0mOAT(TI|yE-11MEJ)  SPOIL 

IF(SPLREND1E0.0)  SPLRBID  -  0.0  SPOIL 

IF(SPOILERiESPLRBID)  7HB1  SPOIL 

IF(SPOILBUEZBX))INISPLR«. FALSE  SPOIL 

SPOILER  bSPLREND  SPOIL 

BCIF  SPOIL 

ENDIF  SPOIL 

BONF  SPOIL 

TIMEJ«TIME  SPOIL 

RETURN  SPOIL 

BO  SPOIL 
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SidKOUtiiie  TVECTOR 


SUBnC)UTINETVECT0R(VTANQI£.Hy^.\rt^4)VECTD^  TVECTOR 

C****  THIS  SUBROUTI^£(X)^m^OLS  THE  THRUST  VECTORING  BASB)  UPON  THE  TVECTOR 

THRUST  VECTORING  TRIGGER  ALTrmOE{HVECT),THETHRUST  TVECTOR 

VECTORING  TRIGGER  AIRSPEB)(VVECT).  AND  THE  DELTA  TIME  FOR  THRUST  TVECTOR 

VECTORING  (DVECTDT).  TVECTOR 

DOUBLB>RECtSIONDTIME.OTIMEJ,TIME  CTRL 

PARAMETER  (LUIN^.lJUOUT»4)  CTRL 

COMMON/CTRiy  DTIME,OTIMEJ,ICOUNT.JDEBUG.KENG.UNENUM.LUMSG,NCOUNT,  CTRL 

&  NEQ,NPAGE,TIME.TIMEROL  CTRL 

LOGICAL  AOAOaG.BRKaAG,CLRHGT,ERRFI^, FAILING, RJ\PFLG,FPCTFLG,  FUGS 

&  GEFLAG,LGRFUGJJFTOFF,OVERFLG.REVFUG,REVRSE.ROTATE.  FLAGS 

&  RTOFLAG,SBKFUG.SPLFLAG,SPOOL,STEADY,TERMFLG,VECTFLG,  FLAGS 

&  VFFIAG.WRITITR  FUGS 

COMMON/FUGS/  AOAOFLG,BRKFUG,CLRHGT,ERRFUG.FAlLaG,FLAPFLG,  FUGS 

&  FPCTFLG,GEFLAG.LGRFLAG,UROFF,OVERFLG.REVFLAG.  FUGS 

&  REVRSE.ROTATE.RTOFLAG.SBKIUG.SPLFLAG.SPOOL,STEADY.  FLAGS 

&  TERMFLG.VECTFLG,VFFLAG,WRITITR  FLAGS 

COMMON/VECTDAT/  IVECT,MAXSIZV;{NUARY{5),HVCTARY{5),VVCTARY(5)  VECTDAT 

DOUBLE  PREaSION  TIMEJ  TVECTOR 

LOGICAL  INIVECT  TVECTOR 

IF(.NOT.INIVECT)THEN  TVECTOR 

C*“  INITIATE  THRUST  VECTOR  CHANGE  TVECTOR 

INIVECT  =  . TRUE  TVECTOR 

LINENUM:rUNENUM<i>1  TVECTOR 

IF(IVECT  .LEO  )IVECT  *1  TVECTOR 

IF(DVECTDT.Eao.O)  DVECTDT  =  1.0  TVECTOR 

IF(IVECT.LEMAXSIZV)THEN  TVECTOR 

XNUNEW  =  XNUARY(IVECT)  TVECTOR 

ELSE  TVECTOR 

XNUNEW  =  0.0  TVECTOR 

ENDIF  TVECTOR 

TIME!  =TIME  TVECTOR 

DMEVCTs  (XNUNEW -VTANGLEyDVECTDT  TVECTOR 

IF(TIMEVCT.LT.0.0)THEN  TVECTOR 

ADJUST  SIGN  OF  TIMEVCT  AND  DVECTDT  SO  THAT  T1MEVCT  IS  ALWAYS  TVECTOR 

C*^  POSITIVE  AND  DVECTDT  IS  POSmVE  IF  THE  VECTORED  THRUST  TVECTOR 

C****  ANGLE  IS  INCREASING  AND  DVKTDT  IS  NEGATIVE  IF  THE  VECTOR  TVECTOR 

THRUST  ANGIE  IS  DECREASING.  TVECTOR 

TIMEVCT  = -TIMEVCT  TVECTOR 

DVECTDT  = -DVECTDT  TVECTOR 

B®IF  TVECTOR 

WRrrE(LUOUT,1007)yTANGLE.XNUNEW,TIMEVCT  TVECTOR 

1007  FORMAT(  'VECTORED  THRUST  ANGLE  CHANGE)  FROM ’,1^.1,' TO '.F4.1,  TVECTOR 

i  '  DEGREES  IN'.F4.i;  SECONDS.*)  TVECTOR 

BOIF  TVECTOR 


1 

2 

3 

4 

5 
1 
2 

3 

4 
1 
2 

3 

4 

5 

6 

7 

8 
1 
9 

10 

11 

12 

13 

14 

15  I 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
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IF(INIVECT)  THEN  TVECTOR 

VT/WGI£-\^•A^K3LE+DVE(TOrR.OAT(TlME.■^MEJ)  TVECTOR 

IF(VrANGLELEJ(NUNEW)THEN  TVSn^OR 

VTANGLE«XNUNEW  TVECTOR 

IF(IVECT.LE.MAXSIZV)THEN  TVECTOR 

IVKT  .IVECT  +  1  TVECTOR 

HVECT  .HVCTARY(IVECT)  TVECTOR 

WECT  .WCTARYOVECT)  TVECTOR 

BOIF  TVECTOR 

INIVECT  » .FALSE.  TVECTOR 

IF(VrANGLE.EQ.O.O)VECTFLGs:  .FALSE  TVECTOR 

BffMF  TVECTOR 

ENDIF  TVECTOR 

TIMEJsTIME  TVKTOR 

RETURN  TVECTOR 

BA)  TVKTOR  51 
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Subrautiiie  TAK^7 


SUBROUTINE  TAKOFF(ALPHA.GDIST)  TAKOFF 

TNIS  SUBROUTINE  CONTROLS  THE  EXECUTWN  OF  THE  T/«EOFF  MANEUVER  TAKOFF 

FROM  BRAKE  RELEASE  THROUGH  CUMBOUT.  SUBROUTINE  TAKEOFF  CALLS  INTX  TAKOFF 

TO  PERFORM  THE  NUMERICAL  INTEGRATION  OF  THE  RESULTANTS  OF  THE  TAKOFF 

EQUATIONS  OF  MOTION  AND  CALLS  FORCEX  TO  OBTAIN  THE  FORCE  TAKOFF 

COEFFIQBITS  FOR  THE  EQUATIONS  OF  MOTION.  TAKOFF 

TAKOFF 

THE  CONTINUED  TAKEOFF  IS  DONE  BY  ACCELERATING  TO  SPEE)VKFAIU  TAKOFF 

□NEARLY  DECREASING  WITH  TIME  THE  NUMBER  OF  ENGINES  FROM  A  VALUE  TAKOFF 

OFXe^  TO  AVALUEOFXENGOUT.  CONTINUING  THEGROUND  ROLL  TO  TAKOFF 

VKROTAT,  ROTATE  (IFVKFAIL  IS  LESS  THAN  VKROTAT),  UFTOFF  AND  TAKOFF 

CUMBOUT  TO  HMAX.  VKFAL  MUST  BE  LESS  THAN  TAKEOFF  SPEED  FOR  AN  TAKOFF 

ENGINE  FAILURE  TO  BE  INITIATH).  TAKOFF 

TAKOFF 

OOUBLEPRECISIONDTlME.DfTIMEJ.TlME  CTRL 

PARAMETER  (LJUM«3.LUOUT>4)  CTRL 

COMMONKm/  DriME.DTIMEJ,ICOUNT.JDQUG.KENG,UNENUMJJUMSG.NCOUNT.  CTRL 

&  NEQ.NPAGE.TIME.TIMEROL  CTRL 

COMMON/AIRCRFT/  A0A3PTMB.CGPCT.CLALPH.C0NFIG,DTDTMX.FLT,GWT.HZ,  AIRCRFT 

&  LOADING.SWING.THTMAX.WNGLODJ(LFMAX  AIRCRFT 

COMMOWAERO^  CX.CYJ)A£n^CMD.DC0X4XXXDTOTGEX.FLAP.FLPPCT.QS.  ASK) 

&  SPDBRK.SPOILER.VKCAS.VKTAS  AERO 

COMMONOGINS  AITJUy|ACK0TFAIL.EPaFE.IK3.FGPCT,NS^.PWRCOOE^  S4GINE 

&  REVNOX.RC.THRUST.VTANGL£.WFUa.)(ENG.XENGFll}.  ENGINE 

&  )(ENGOUT.XIDLE.)aylL.ZFN  BIGINE 

COMMONA/ECTOfV  HVECT.WECT  VECTOR 

COMMOrVAIRBORN/  ALPHAJ.ALPHMXJ}TDT,GAMMAPP.ROCFPM.THETAF.}(LFjaFJ  AIRBORN 

COMMON/AIRSPEEV  VKABRK.VKAPP.VKBRAKE.VKBO,VKFAiL.VKFLAP.VKFLPMX,  AIRSPS) 

&  VKMCG.VKHaTAT.VKSTAHT.VKWIND.VWIND  AIRSPH) 

COMMONAKJNWAY/  ABARG>K}AABRK3RAKMU3RKFCTR.GAMMARW.GRW.HAGL,  RUNWAY 

&  HCLEAR.HFLARE.HGEARWNWAY.IMU,RCR.ROlJJyiU.TIMEFLD,  RUNWAY 

&  TIMEBRK.TIMEFLP.TiM^BK,TIMESPUXMU  RUNWAY 

DOUBLEPRECISION  VTASOIST>ICCEL.VTASJ,RKGRND  INTEG 

COMMONANTEG/  VTAS.OISTACCEL.VTASJ,RKGRND(20)  INTEG 

DOUBLEPRECISiON  FPVTAS.GAMMAR,FPOiST,PRESALT,FPACCEL,DGDTR.VHAS.  FPINTEG 

&  ROC,RKAIR  FPINTEG 

COMMON/FPINTEG/  FPVTAS.GAMMAR.FPDIST,PRESALT,FPACCEL.DGDTR.VHAS.  FPINTEG 

&  ROC.RKAIR(40)  FPINTEG 

COMMOWATMOS/  TEMPaPRESS.RHO>IFPS,VISCOSK,DELTA.SIGMA,THETA.DTEMPF  ATMOS 

PARAMETER  (ASLs661 .48,FPSKTS-1 .687806, G=  32.174,  CONST 

&  R){a57.295779513CI8,TSLF=59.0^ERO=0.0)  CONST 

COMMONKX)NST/  ASLSQRS,TW00VR7  CONST 

LOGICAL  AOAOFLG,BRKFLAG,CLRHGT,ERRFUG,FAILRG,FLAPaG,FPCTaG,  FUGS 

&  GEFLAG.LGRFLAG.UFTOFF,OVERaG.REVFUG.REVRSE,RaTATE.  FLAGS 

&  RTOFLAG,SBKFlAG,SPlRAG,SPOOL,STEADY,TERMFLG,VECTaG,  FLAGS 

&  VFFLAG.WRITnR  FUGS 

COMMON/FUGS/  AOAOFLG,BRKFLAG,CIRHGT,ERRFUG,FAILFLG.FLAPFLG,  FUGS 

&  FPCTFlG,GEFLAG,LGRFLAG4JFT0FF.0VERaG,REVFUG,  FUGS 

&  REVRSE,ROTATE,RTOFLAG,SBKFLAG,SPLFUG.SPOOL,STEADY,  FLAGS 

&  TERMFLG,VECTFLaVFFUG.WRmTR  FLAGS 
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CHARACTER  ENGGRP*3mGRP*3.FAIlJlO)*5,FAILSr4,MVR^,MANUVR*6, 

CHARV 

1 

&  THRCRV^,TK0TYPE*7 

CHARV 

2 

COMMONOMRV/  ENGGRP,FAILGRP.FAILMOD,FAILST,MVR.MANUVR,THRCRV, 

CHARV 

3 

&  TKOTYPE 

CHARV 

4 

COMMON/FLAPDAT/  IFLAP,MAXSIZF,FLPARY(S),VFLPARY(5) 

FLAPDAT 

1 

REALLGRARY{6) 

GEARDAT 

1 

COMMON/GEAROAT/  IGEAR,MAXSIZG,LGRARY 

GEARDAT 

2 

COMMON/VECTDAT/  l\«n-.MAXSIZV;(NUARY(5),HVCTARY(5).WCTAR^^ 

VECTDAT 

1 

LOGICAL  INIVCLJyi.lNISEG1.INISEG2,VCOFLAG 

TAKOF 

31 

REAL  ATiyiARY(8).S(48),T(24),IKrERP 

TAKOFF 

32 

EQUIVALENCE  (TBylPR>VTMARY(1)),{FPVTAS.3(1)),(VTAS.T(1)) 

TAKOFF 

33 

EXTERNAL  DERIVGR,DERIVAT,INTERP 

TAKOFF 

34 

DATADISTMAXHCUMB,HCL]ylOUT,  HGEAR,HMAX,  ROLLMAX,  THTCLM,  THTFLY, 

TAKOFF 

35 

&  /  60760.,  100.,  200.,  205.,  1000.,  120.0,  10.0, 

8.0,/, 

TAKOFF 

36 

&  THTROT,THnOL,TIMEMAX.VCLMOUT.  VKEND.VKFAIU  VKFLAP  VKROTAT 

TAKOFF 

37 

&  /  10.0,  0.1,  300.,  0.,  250.,  0.,  0., 

0.1. 

TAKOFF 

38 

&  VKSTARt 

TAKOFF 

39 

4/07 

TAKOFF 

40 

NAMELIST/TKO«GEAR,HMAX,THTCUyi,THTROT,VKFAIUVKROTAT 

TAKOFF 

41 

NAMEUST/rK02/DIST1IMX,HCUMB,HCLMOl/T,ROLLll^,THTFLY,THTTOL 

TAKOFF 

42 

4  TIMEMAX,TKOTYPE,VCLMOUT,in<END,VKFLAP,VKSTART 

TAKOFF 

43 

NAMEUST/TKOARY/FLPARY,VFLPARY.HVCTARY,WCTARY,XNUARY 

TAKOFF 

44 

c**** 

TAKOFF 

45 

C****  INPUT  DATA  LOADED  INTO  TAKOF  THRU  NAMEUSTS  /TKO/  AND  /TKOARY/. 

TAKOFF 

46 

READ(LUIN,TKO) 

TAKOFF 

47 

READ(LUIN,TK02) 

TAKOFF 

48 

READ(LUIN,TKOARY) 

TAKOFF 

49 

cr** 

TAKOFF 

50 

C****  TERMINATE  PROGRAM  IF  ROTATION  SPEED  NOT  INITIALIZED. 

TAKOFF 

51 

IF{VKROTAT,EQ.2ERO)  CAU  HALT(  LUIN,LUMSG.LUOUT, 

TAKOFF 

52 

4  ’VKROTAT  NOT  INPUT  BY  USER.") 

TAKOFF 

53 

c**** 

TAKOFF 

54 

Cr**  INITIALIZE  INTERNAL  SUBROUTINE  LOGIC  CONTROL  VARIABLES. 

TAKOFF 

55 

INIVCLM  =  INISEG1  =  INISEG2  =  UFTOFF  =  ROTATE  =  VCOFLAG  =  .FALSE. 

TAKOFF 

56 

C**” 

TAKOFF 

57 

Cr-  INITIALIZE  LOGIC  FLAG  BASED  ON  ENGINE  FAILURE  SPEED. 

TAKOFF 

58 

IF(VKFAILEQ.ZERO)THEN 

TAKOFF 

59 

FAILFLG  =  . FALSE 

TAKOFF 

60 

ELSE 

TAKOFF 

61 

FAILFLG  =  .TRUE. 

TAKOFF 

62 

ENDIF 

TAKOFF 

63 

QMM 

TAKOFF 

64 

C*”*  INITIALIZE  CURVE  FILES. 

TAKOFF 

65 

CALLINICURV 

TAKOFF 

65 

TAKOFF 

67 

C****  INITIALIZE  INTERNAL  SUBROUTINE  PARAMETERS. 

TAKOFF 

65 

TEMPF  =TSLF  +  DTEMPF-0.003566*HRUNWAY 

TAKOFF 

6£ 

THTMAX  =THTROT 

TAKOFF 

7t 
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(J*“* 

TAKOFF 

71 

C****  OBTAIN  ATMOSPHBVC  VARIABLES. 

TAKDFF 

72 

CALL  ATMOSPH(HRUNWAY>^TiyiARY) 

TAKOFF 

73 

QMM 

TAKOFF 

74 

(T**  SUM  VKSTART  AND  VKWINO  TO  CALCUUTE  INITIAL  AIRSPEED  FOR  ROLLING 

TAKOFF 

75 

C~**  MINIMUM  INTERVAL  TAKEOFFS. 

TAKOFF 

76 

VKTASs  VKWIND  ^  VKSTART 

TAKOFF 

77 

VTAS  -VKTASTPSKTS 

TAKOFF 

78 

c**** 

TAKOFF 

79 

CT"  CAUBRATH)  AIRSPEED  EQUATION 

TAKOFF 

80 

CT**  ASLSQR5  =  661.48*SQRT(5.0);  TWOOVR7  =  2.iy7.0 

TAKOFF 

81 

C*"*  VKCAS  =  ASL*SQRT(5.0*(DELTA* 

TAKOFF 

82 

((1.0  +  05*AMAC»r2)“3.5  - 1.0)  +  1.0)**(2.a/7.0)  - 1.0)) 

TAKOFF 

83 

CALL  SPEB)(0.0,VrAS,VWIND,AMACH.QS.VKCAS,VKEAS,VKTAS,VICTGS,VTGS) 

TAKOFF 

84 

(r“  OBTAIN  INITIAL  CONDITIONS  OF  THRUST  AND  FORCE  COEFFICIBITS  FOR 

TAKOFF 

85 

Cr**  GROUND  ROLL 

TAKOFF 

86 

CALL  FORCEX(ALPHA.CD,a) 

TAKOFF 

87 

Q*M* 

TAKOFF 

88 

C*^  OBTAIN  STATIC  THRUST  TO  WEIGHT  RATIO. 

TAKOFF 

89 

TOVERW = THRUSr(FL0AT(NENG)/XENQ)«3WT 

TAKOFF 

90 

C"** 

TAKOFF 

91 

cr***  INITIALIZE  THRUST  ANGLE  SCHEDULES  FOR  AIRBORNE  PORTION  OF 

TAKOFF 

92 

C****  TAKEOFF. 

TAKOFF 

93 

HVECT  =HVCTARY(1) 

TAKOFF 

94 

WECT  sWCTARYd) 

TAKOFF 

95 

VTANGLE=XNUARY(1) 

TAKOFF 

96 

c**** 

TAKOFF 

97 

C****  RHNITIALJZE  THE  WCTARY  ARRAY  ELEMENTS  FOR  ANY  CORRESPONDING 

TAKOFF 

96 

C****  ELEMENTS  IN  THE  HVCTARY  ARRAY.  THIS  GIVES  ALTITUDE  BREAKPOINTS 

TAKOFF 

99 

C****  PRECEDENCE  OVER  AIRSPEED  BREAKPOINTS  FOR  THRUST  VECTORING 

TAKOFF 

100 

C****  MODULATION. 

TAKOFF 

101 

D010I»2,MAXSIZV 

TAKOFF 

102 

IF(HVCTARY(l).NE2ERO)  VVCTARY(I)  =  ZERO 

TAKOFF 

103 

10  CONTINUE 

TAKOFF 

104 

cr*** 

TAKOFF 

105 

C****  INITIALIZE  FLAPS  FOR  GROUND  ROLL 

TAKOFF 

106 

IF  (VFLPARY(I)  .NE2ERO)THEN 

TAKOFF 

107 

VKFLAP  =  VFLPARY(1) 

TAKOFF 

108 

ELSEIF(VKFLAP  .EQ.ZERO)  THEN 

TAKOFF 

109 

VKFLAP  =  VKFLPMX 

TAKOFF 

110 

ENDIF 

TAKOFF 

111 
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QMM 

TAKOFF 

112 

(r**  ECHO  BACK  PROGRAM  INPUTS  TO  OUTPUT  RLE. 

TAKOFF 

113 

IF(VKWIND.GE2ERO)  THEN 

TAKOFF 

114 

WRITE(LUOUT,1001)HRUNWAY,GAMMARW,TEMPF,  VKWIND, 'HEADWIND' 

TAKOFF 

115 

ELSE 

TAKOFF 

116 

WRITE(LUOUT,1001)  HRUNWAY,GAMMARW,TEMPF/\BS(VKWIND).TAiLWIND' 

TAKOFF 

117 

ENDIF 

TAKOFF 

116 

WRITE(LUOUT,1002)  GWT.THTR0T.SWING,THTCLM,6Wn^0VERWmTA,THTFLY. 

TAKOFF 

119 

& 

WNGLOD,VCUylOUT,TOVERW,HGEAR,XENG,DADTCMD,DTFAiL 

TAKOFF 

120 

WRITE(LUOUT,1003) 

TAKOFF 

121 

& 

(XNUARY  (l),l«1,MAXSIZV), 

TAKOFF 

122 

& 

(WCTARY  (I).l  =  1,MAXSIZV),(HVCTARY(I).I  =  1/ylAXSIZV). 

TAKOFF 

123 

& 

(FLPARY  {l),l  =  1,MAXSIZF).(VFLPARY(l),l  =  1.MAXSIZF). 

TAKOFF 

124 

& 

HRUNWAY 

TAKOFF 

125 

WRrrE(LUOUT,1004) 

TAKOFF 

126 

1001  FORMAT(  “INPUTS  TO  TAKE  OFF  “V.  ALTITUDE  »*,F7.1. 

TAKOFF 

127 

& 

•  ALTITUDE  =‘.F7.1,19X,'  RUNWAY  SLOPE  » ■,F4.1.'  DEGREES 

TAKOFF 

128 

& 

'DEGREES'/, 

TAKOFF 

129 

& 

'  TEMPERATURE  =  '.FT.I,'  DEGREES  F/, 

TAKOFF 

130 

& 

‘  ‘.FT.I.'KNOT'/W) 

TAKOFF 

131 

1002FORMAT(  /,'  AIRCRAFT  PARAMETERS'^X. 

TAKOFF 

132 

& 

'FUGHTPATH  CONTROL  PARAMETERS'/, 

TAKOFF 

133 

& 

i:  GROSS  RAMP  WEIGHT  =‘,F9.02X, 

TAKOFF 

134 

& 

•  ROTATION  PITCH  ANGLE  =',F6.1. 

TAKOFF 

135 

& 

/,’  WI'.'GAREA=  ='.F9.0,2X. 

TAKOfT 

136 

& 

'  SEGMENT  1  PITCH  ANGLE  =‘.F6.1, 

TAKOFF 

137 

& 

i:  STATIC  SEA  LEVEL  THRUST  »'.F9.0,2X, 

TAKOFF 

138 

& 

'  SEGMENT  II  PITCH  ANGLE  *',FB.1, 

TAKOFF 

139 

& 

i:  WING  LOADING  =',F9.1,2X. 

TAKOFF 

140 

« 

'  CUMB  OUT  AIRSPEED  ='.F6.1, 

TAKOFF 

141 

& 

i:  THRUST/WEIGHT  ='.F9.3,2X, 

TAKOFF 

142 

& 

■  GEAR  RETRACTION  ALTITUDE  =',F6.1. 

TAKOF 

143 

& 

i:  NUMBER  OF  ENGINES  =’,F9.1,2X, 

TAKOF^ 

144 

& 

■  COMMANDED  ALPHA  RATE  =',F6.1. 

TAKOFF 

145 

& 

i:  MIX, 

TAKOFF 

146 

& 

'  ELAPSED  ENGINE  FAILURE  TIME  =' .F6.1 ) 

TAKOFF 

147 

1003  FORMAT(/;  FLAP  AND  VECTORED  THRUST  SCHEDULES'/, 

TAKOFF 

146 

& 

9X,'FLAP  RETRACTION  SCHEDUIP/, 

TAKOFF 

149 

& 

12X.'FLAP  DEFLECTION', 5F9.1/. 

TAKOFF 

ISO 

& 

12X, 'SPEED  ■,5F9.1/, 

TAKOFF 

151 

& 

9X,'VECTORED  THRUST  ANGLE/.12X, 'ANGLE  ',  5F9.1  /. 

TAKOFF 

152 

& 

12X, 'SPEED  '.5F9.1/,12X,*ALTfTUDE’.5F9.0/. 

TAKOFF 

153 

& 

9X'ALL  SPEEDS  ARE  CAUBRATED  AIR  SPEEDS  AND  Aa ', 

TAKOFF 

154 

& 

'ALTITUDES  ARE  ABSOLUTE  ALTITUDES.'/. 

TAKOFF 

155 

& 

If  TAKEOFF  (ELEVATION  «',F6.0.'  FEET)'//) 

TAKOFF 

156 

1004  FORMATf  TIME  DIST.  WEIGHT  ALT.  VCAS  VTAS  VTGS’, 

TAKOFF 

157 

A 

'  ACCEL  a  CD  THETA  ALPHA  GAMMA  DTHET  '. 

TAKOFF 

158 

& 

'  R/C  LOAD  THRUST  XENG'/. 

TAKOFF 

159 

& 

'(SEC)  (FEET)  (LBS)  (FEET)  (KTS)  (KTS)  (KTS)', 

TAKOFF 

160 

& 

'(FPS2)  (DEG)  (DEG)  (DEG)  IDT 

TAKOFF 

161 

& 

'(FPM)FACT  (LBS)  OR  MU'/) 

TAKOFF 

162 
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TAKOFF 

163 

GROUND  ROLL  INTEGRATION  VARIABLES. 

TAKOFF 

164 

NEQ  «  NUMBER  OF  EQUATIONS 

TAKOFF 

165 

DTIME  «  TIME  INTERVAL,  STEP  SIZE  (SECONDS) 

TAKOFF 

166 

VTAS  »  VELOCITY  (FcET/SKOND)  WITH  RESPECT  TO  THE  AIR 

TAKOFF 

167 

DIST  »  DISTANCE  (FEET) 

TAKOFF 

168 

ACCa:>  ACCELERATION  (FEET/SECOND**2) 

TAKOFF 

169 

GDIST^ZERO 

TAKOFF 

170 

CALL  INTX(NEQ.TIME,DTIME,T.DERIVGR,ALPHA) 

TAKOFF 

171 

IF(DTIME.GE0.10DO)THEN 

TAKOFF 

172 

WRITE(LUOUT, 1005)  TIME, GOIST,GWr,HAGL.VKCAS.VKTAS,THETAF,ACCEL, 

TAKOFF 

173 

CL,C07ER0,ALPHA,ZER07ER0,ZER0,XLF, THRUST, 

TAKOFF 

174 

XENG 

TAKOFF 

175 

ELSE 

TAKOFF 

176 

WRrrE(LUOUT,1006)TIME,GOIST,GWr,HA6L.VKCAS,VKTAS,THETAF,ACCEL, 

TAKOFF 

177 

CL,C0,ZER0>UJWER0,ZER07ERO,XLF,THRUST, 

TAKOFF 

178 

X0IG 

TAKOFF 

179 

ENDIF 

TAKOFF 

180 

FORMAT(F6.1  .F8.0,F9.0,F8.1 ,3F7.1  ,F7.2,F8.4,F7.4,4F/i,F8.1  ,F6.2, 

TAKOFF 

181 

F9.0,F7.3) 

TAKOFF 

182 

FORMAT(F6.2,F8.0,F9.0,F8.1 ,3F7.1  .F7.2.F8.4,F7.4,4F7.2,F8.1  ,F6.2, 

TAKOFF 

183 

F9.0,F7.3) 

TAKOFF 

184 

TAKOFF 

185 

GROUND  ROLL  HVTEGRATION  LOOP 

TAKOFF 

186 

DO20NCOUNT»1,10 

TAKOFF 

187 

ALPHAJs  ALPHA 

TAKOFF 

188 

THETAJ*THETAF 

TAKOFF 

189 

TAKOFF 

190 

UFTOFF  CRITERION:  IF  UFT  IS  LESS  THAN  WEIGHT 

TAKOFF 

191 

IF  {QS^Y.LT.GWr*COSD(GAMMARW))THEN 

TAKOFF 

192 

UFTOFF  CRITERION  NOT  MET 

TAKOFF 

193 

TAKOFF 

194 

MAKE  INTEGRATION  STEP. 

TAKOFF 

195 

CALL  INTZ(NEQ,TIME,DTIMET,DSTIVGR,ALPHA) 

TAKOFF 

196 

CALL  INTG(  DiST,RKGRND(14),DTIME,0.0,VWIND,WFUa, 

TAKOFF 

197 

DOIST,GDIST,GWT) 

TAKOFF 

198 
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c**** 

TAKOF 

199 

A 

c**" 

CALCULATE  DYNAMIC  PRESSURE,  MACH  NUMBER  AND  VaOCITIES. 

TAKOF 

200 

w 

CALLSPEED{  O.O.VrAS,VVVIND>UyiACH,QS,VKCAS,VKEAS,VKTAS. 

TAKOF 

201 

VKrGS,VTGS) 

TAKOF 

202 

C"** 

TAKOF 

203 

QMM 

CHECK  SPEED  FOR  VKFAIL 

TAKOF 

204 

1F(VKCAS.GEVKFA1L  .AND.  (.NOT.VFFUG))  THEN 

TAKOF 

205 

c**** 

ENGINE  FAILURE  SPEED  ATTAINED. 

TAKOF 

206 

SPOOL  =.TRUE. 

TAKOF 

207 

VFFUG  =  .TRUE. 

TAKOF 

208 

TIMEFLOs  aOAT(TIME  -  DTIME) 

TAKOF 

209 

IF(.NOT.RTOFUG)THEN 

TAKOF 

210 

XENGTRN  =  1.0 

TAKOF 

211 

IF  (FAILST.EQ.'ID1P)THEN 

TAKOF 

212 

XENGEND  =  XIDLE 

TAKOF 

213 

ELSEIF  (FAILST.EQ.’  MIL*)  THEN 

TAKOF 

214 

XENGEND^XMIL 

TAKOF 

215 

ELSEIF  (FAILST.EQ.’  OFF^  THEN 

TAKOF 

216 

XENGEND  =  ZERO 

TAKOF 

217 

ELSE 

TAKOF 

218 

XENGEND:c1.0-XENGFLD 

TAKOF 

219 

ENDIF 

TAKOF 

220 

XENGFri.O 

TAKOF 

221 

ENDIF 

TAKOF 

222 

IF(FAILFLG)THEN 

TAKOF 

223 

c**** 

ENGINE  FAILURE  OCCURS. 

TAKOF 

224 

C«« 

PARAMETER  ENGGRP  SWITCHED  TO  FAILGRP  FOR 

TAKOF 

225 

• 

C**“ 

CONTINUED  OR  REFUSED  PORTION  OF  TAKEOF. 

TAKOF 

226 

UNENUMsUNENUM-t-1 

TAKOF 

227 

ENGGRP  =  FAILGRP 

TAKOF 

228 

CALLINICURV 

TAKOF 

229 

WRITEC-UOU^.IOCr^TIME.GDIST.'.'KCAS.yiCTAS 

TAKOF 

230 

1007 

FORMAT( '  ENGINE  FAILURE  (TIME  =  *.1=6.2, 

TAKOFF 

231 

& 

■  DIST  =  *,F8.1.’  CAS  = '.17.1, 

TAKOF 

232 

& 

■  TAS  =  *,F7.1.’ KNOTS)’) 

TAKOF 

233 

ENDIF 

TAKOF 

234 

ENDIF 

TAKOF 

235 

TAKOF 

236 

c**** 

ENGINE  FAILURE  CONTROL 

TAKOF 

237 

IF(ENGGRP.EQ.FAILGRP)  THEN 

TAKOF 

238 

IF  (RTOFLAG)THEN 

TAKOF 

239 

C««. 

REFUSED  TAKEOF 

TAKOF 

240 

THIS  FUG  RETURNS  EXECUTION  TO  THE  CALUNG  PROGRAM 

TAKOF 

241 

c**** 

AT  START  OF  THE  ENGINE  FAILURE.  PROGRAM 

TAKOF 

242 

c**" 

EXECUTION  WILL  PROCEED  WITH  SUBROUTINE  ROLL. 

TAKOFF 

243 

ICOUNT  =  NCOUNT  +  1 

TAKOF 

244 

RETURN 

TAKOF 

245 

• 

1 
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aSEIF  (FAIUyK}D.EQ.’SEIZEO  THEN 

TAKOFF 

246 

SPOOL.. TRUE. 

TAKOFF 

247 

XENG-XBIGOUT 

TAKOFF 

248 

ELSE 

TAKOFF 

249 

IF  (DTFAILEQ2ER0  JWD.  (.NOT.  SPOOL))  THEN 

TAKOFF 

250 

CALL  spoolonf(time;(engend;(engtrn,spool,xengf, 

TAKOFF 

251 

& 

LUMSG) 

TAKOFF 

252 

XENG.XENGOUT-t-XENGF 

TAKOFF 

253 

ELSEIF(DTFAILNE.ZER0  .and.  (.not.  SPOOL))  THEN 

TAKOFF 

254 

XENG  .  XENG  -  XENGFLDTLOAT(DTIME)/DTFAIL 

TAKOF 

255 

IF(XENG.LEJ(ENGOUT)  THEN 

TAKOFF 

256 

SPOOL  =  .TRUE. 

TAKOFF 

257 

ENDIF 

TAKOFF 

258 

ELSE 

TAKOFF 

259 

XENG  .XENGOUT 

TAKOFF 

260 

ENDIF 

TAKOFF 

261 

ENDIF 

TAKOFF 

262 

ENDIF 

TAKOFF 

263 

QMM 

CHECK  SPEED  FOR  VKROTAT. 

TAKOFF 

264 

IF(VKCAS.GEVKROTAT)  THEN 

TAKOFF 

265 

IF(.NOT.ROTATE)THEN 

TAKOFF 

266 

Q*ttt 

BEGIN  ROTATION 

TAKOFF 

267 

ROTATE  ..TRUE. 

TAKOFF 

268 

AOAOFLG  =  .FALSE. 

TAKOFF 

269 

UNENUM  .UNENUM  +  I 

TAKOFF 

270 

WRrrE(LUOUT.1008)  TIME.GDIST.VKCAS,VICTGS 

TAKOFF 

271 

1008 

FORMAT(  ■  ROTATION  (TIME  =  •,F6.2. 

TAKOFF 

272 

& 

’  DIST  =  ',F8.1.'  CAS  =  ‘.F7.1, 

TAKOF 

273 

& 

■  VG  =  ',F7.i;  KNOTS)-) 

TAKOF 

274 

ENDIF 

TAKOF 

275 

c*^ 

TAKOF 

276 

QMM 

INCREASE  ALPHA  TO  TAIL  SCRAPE  ANGLE  AT  RATE  DADTCMD. 

TAKOF 

277 

CALL  PITCHfROTATE  •,ALPHA,DADTCMD,DTIME,DTDTGEX,LUOUT) 

TAKOF 

278 

ENDIF 

TAKOF 

279 

CT** 

TAKOF 

280 

QMM 

CHECK  TIME  FOR  UMIT  OF  GROUND  ROa  TIME. 

TAKOF 

281 

IF(FLOAT{TIME).GT.ROLLMAX)  THEN 

TAKOF 

282 

WRITE(LUOUT,1009) 

TAKOF 

283 

1009 

FORMAT(/,'  TIME  UMIT  FOR  GROUND  RUN  EXCEEDED.-) 

TAKOF 

284 

RETURN 

TAKOF 

285 

ENDIF 

TAKOF 

286 
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IF(NCOUNT.EQ.10)THEN 

CALCULATE  ADOITIONAL  OUTPUT  PARAMETERS.  WRITE  OUTPUT  AND 
INCREMENT  UNE  NUMBER  COUNTER  UNENUM. 

CALCULATE  LOCAL(BASEO  ON  THE  CURRENT  AND  PREVIOUS  TIME 
POINTS)  RATES  OF  CHANGE  IN  ANGLE  OF  AHACK  AND  PITCH 
ATTITUDE.  THESE  ARE  NOT  THE  COMMANDED  RATES  OF  CHANGE 
IN  ANGLE  OF  ATTACK  AND  PITCH  ATTITUDE. 

DADT  =  (ALPHA  -  ALPHAJ)/FLOAT(DTIME) 

DTHTDT  « (THETAF  -  THETAJ)/FL0AT(DT1ME) 

CALL  FORCEX(ALPHA.CD,CL) 

IFPTIME.GE0.10D0)THEN 

WRITE(LUOUT,1005)TIME,GDIST,GWT,HAGL.VKCAS,VKTAS, 

VKTGS.ACCEL.CL,CD,THETAF.ALPHA.ZERO, 
DTHTDT7ER0.XLF,THRUST.XENG 

ELSE 

WRfTE(LUOUT,1006)TIME.GDIST,GWT,HAGL.VKCAS,VKTAS, 

VKTGS.ACCEL,CL,CD.THETAF>VJ>HA.ZERO. 
DTHTDT.ZERO.XLF.THRUST.XENG 

ENDIF 

UNENUM  =  UNENUM -t-l 
IF(UNENUM.GE.NPAGE)  THEN 

RESET  UNE  NUMBER  COUNTER  UNENUM  AND  WRITE  HEADER 
FOR  NEW  PAGE. 

UNENUM  s  5 
WRITE(LUOUT,1010) 

WRITE{LUOUT,1004) 

FORMAT(1t  TAKEOFF  CONTINUED*./) 

ENDIF 

RESTART  GROUND  ROLL  INTEGRATION  LOOP. 

GOT0 19 
ENDIF 

ELSEIF(.NOT.UFTOFF)  THEN 

UFTOFF  CRITERION  MET.  INITIALIZE  ICOUNT  FOR  AIRBORNE 
INTEGRATION  LOOP.  THE  VARIABLE  ICOUNT.  AU.OWS  SUBROUTINE 
TAKOFF  TO  WRITE  OUTPUT  AT  DTIMriO.O  SECOND  INTERVALS  AS 
PROGRAM  EXECUTION  PROCEEDS  FROM  THE  GROUND  ROU.  INTEGRATION 
LOOP  TO  THE  AIRBORNE  INTEGRATION  LOOP  OR  TO  THE  GROUND  ROLL 
INTEGRATION  LOOP  IN  SUBROUTINE  ROLL  FOR  REFUSED  TAKEOFFS. 
ICOUNT  sNCOUNT 
UFTOFF  =  .TRUE. 

BIDIF 
20  CONTINUE 


TAKOFF 

287 

TAKOFF 

288 

TAKOFF 

289 

TAKOFF 

290 

TAKOFF 

291 

TAKOFF 

292 

TAKOFF 

293 

TAKOF 

294 

TAKOFF 

295 

TAKOFF 

296 

TAKOFF 

297 

TAKOF 

298 

TAKOF 

299 

TAKOF 

300 

TAKOF 

301 

TAKOF 

302 

TAKOFF 

303 

TAKOF 

304 

TAKOF 

305 

TAKOF 

306 

TAKOF 

307 

TAKOF 

308 

TAKOF 

309 

TAKOF 

310 

TAKOF 

311 

TAKOF 

312 

TAKOF 

313 

TAKOF 

314 

TAKOF 

315 

TAKOFF 

316 

TAKOF 

317 

TAKOF 

318 

TAKOF 

319 

TAKOF 

320 

TAKOF 

321 

TAKOF 

322 

TAKOF 

323 

TAKOF 

324 

TAKOF 

325 

TAKOF 

326 

TAKOF 

327 

TAKOF 

328 

TAKOF 

329 
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1 

QWM 

TAKOFF 

330 

H 

(r*“  OUTPUT  VARIABLES  AT  UFTOFF. 

TAKOFF 

331  A 

332  W 

H 

UNBIUM  .UNBIUM-t-l 

TAKOFF 

1 

WRrrE(LUOUT,1011)  TIME.GOIST,VKCAS,VKTQS 

TAKOFF 

333 

H 

1011  FORMATf  UFTOFF  (TIME  *  ■.FBi/  DIST  =  ‘.FB-I, 

TAKOFF 

334 

H 

&  ■  CAS  =  '.FZ.I,'  VG  =  '.FT.i;  KNOTS)*) 

TAKOFF 

335 

H 

QMM 

TAKOFF 

336 

H 

C**"  AIRBORNE  PORTION  OF  TAKEOFF 

TAKOFF 

337 

H 

c**** 

TAKOFF 

338 

H 

0—  INITIALIZE  THRUST  ANGLE  SCHEDULES  FOR  AIRBORNE  PORTION  OF  TAKEOFF, 

TAKOFF 

339 

1 

HVECT=HVCTARY(1) 

TAKOFF 

340 

H 

VVECT=WCTARY(1) 

TAKOFF 

341 

H 

TAKOFF 

342 

H 

(T**  INTTIAUZE  AIRBORNE  INTEGRATION  VARIABLES. 

TAKOFF 

343 

1 

Cr^FPVTAS  =  VELOCITY  ALONG  FLIGHTPATH{FEET/SECOND) 

TAKOFF 

344 

H 

(r**GAMMAR  srFUGHTPATH  ANGLE  (RADIANS) 

TAKOFF 

345 

P 

C****  FPOISr  =  DISTANCE  ALONG  FUGHTPATH  (FffiT) 

TAKOFF 

346 

l| 

C*^  PRESALT  =  ALTITUDE  (FEET) 

TAKOFF 

347 

H 

C““  FPACCa  =  ACCELERATION  ALONG  FUGHTPATH  (FEET/SECOND“2) 

TAKOFF 

348 

H 

C****  DGDTR  »  TIME  RATE  OF  CHANGE  OF  FUGHTPATH  ANGLE  (RADIANS/SECOND) 

TAKOFF 

349 

H 

C****  VHAS  s  horizontal  AIRSPEED  (FEET/SECOND) 

TAKOFF 

350 

H 

C““  ROC  =  RATE  OF  CUMB  (FEET/SECONO) 

TAKOFF 

351 

H 

NEQ  =4 

TAKOFF 

352 

H 

FPOIST  =DIST 

TAKOFF 

353 

H 

FPVTAS  =VTAS 

TAKOFF 

354 

H 

GAMMAR  =ZERO 

TAKOFF 

355 

1 

RKAIR(27)sRKGRND(14) 

TAKOF 

356  ^ 

357  ^ 

1 

CALL  INTX(NEQ, TIME, DnME,S,DERIVAT, ALPHA) 

TAKOFF 

H 

CAU.INTG(  DIST.RKGRND(14),0TIME,GAMMAR,VWIND,WFUEL. 

TAKOFF 

356 

H 

DDIST,GDIST,GWT) 

TAKOFF 

359 

H 

TAKOFF 

360 

1 

C—  AIRBORNE  INTEGRATION  LOOP 

TAKOFF 

361 

1 

IF(ICOUNT.EQ,1 1)  ICOUNT  =  1 

TAKOFF 

362 

H 

29  DO  30  NCOUNT=ICOUNT,10 

TAKOFF 

363 

H 

ALPHAJs  ALPHA 

TAKOFF 

364 

H 

THETAJsTHETAF 

TAKOFF 

365 

H 

HAa  »  PRESALT -HRUNWAY 

TAKOFF 

366 

H 

QMM 

TAKOFF 

367 

H 

C—  MAKE  INTEGRATION  STEP. 

TAKOFF 

368 

1 

CALL  INTZ(NEQ,TIME.DTIME,S,DERIVAT,ALPHA) 

TAKOFF 

369 

H 

IF(ERRFLAG)THEN 

TAKOFF 

370 

H 

CAUERflORCROCFPM) 

TAKOFF 

371 

H 

RETURN 

TAKOFF 

372 

H 

ENDIF 

TAKOFF 

373 

1 

CALL  INTG(  DIST,RKAIR(27),DTIME,GAMMAR,VWIND,WFUEL, 

TAKOFF 

374 

H 

DDIST.GOIST.GWT) 

TAKOFF 

375 

H 

TAKOF 

376 

H 

C****  OBTAIN  ATMOSPHERIC  VARIABLES. 

TAKOFF 

377 

1 

CALL  ATMOSPH{PRESALT.ATMARY) 

TAKOFF 

378 
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• 

QMM 

TAKOFF 

379 

cr** 

CALCUUTE  DYNAMIC  PRESSURE.  MACH  NUMBER  AND  VELOCITIES. 

TAKOFF 

380 

CALLSPEED(  GAMMAR,FPVTAS,VWIND>UyiACH,QS,VKCAS,VKEAS,VKTAS, 

TAKOFF 

381 

VKTGS.VTGS) 

TAKOFF 

382 

TAKOFF 

383 

C**“ 

CHECK  FOR  CLEARANCE  HBGHT  HCLEAR. 

TAKOFF 

384 

IF  ((.NOT.CLRHGT)  .AND.  HAGLLT.HCLEAR)  THEN 

TAKOFF 

385 

c*”* 

STORE  VALUES  FOR  HCLEAR  FEET  INTERPOLATION 

TAKOFF 

386 

FPVTASJ  =FPVTAS 

TAKOFF 

387 

GDISTJ  »G0IST 

TAKOFF 

388 

HAGU  :^HAGL 

TAKOF 

389 

ELSEIF((.NOT.CLRHGT)  .AND.  HAGLGE.HCLEAR)  THEN 

TAKOFF 

390 

0MM 

FIND  VALUES  AT  HCLEAR  FEET  AGL 

TAKOFF 

391 

CLRHGT  s.TRUE. 

TAKOFF 

392 

UNENUM«UNENUM4l 

TAKOFF 

393 

GD50  «INTERP(GDiST  , GDISTJ  .HAGUHAGUHCLEAR) 

TAKOFF 

394 

VTAS50  =INTERP(FPVTAS.FPVrASJ.HAGLHAGLJ.HCLEAR) 

TAKOFF 

395 

CALL  SPEED(GAMMAR,VTAS50,VWIND>UylACH,QS.VKCAS,VKEAS,VKTAS. 

TAKOF 

396 

& 

VKTGS,VTGS) 

TAKOFF 

397 

WRITE(LUOLn’,1012)  HCLEAR, TIME,GD50,VKCAS,VKTAS 

TAKOFF 

396 

1012 

FORMAT(  •  ALTITUDE:'.F5.0;FEET  (TIME  =  ‘,1^.2, 

TAKOFF 

399 

& 

•  DIST  =  '.F8.1.'  CAS  =  ‘,F7.1,'  TASr',F7.1, 

TAKOFF 

400 

& 

•KNOTS)') 

TAKOF 

401 

ENDIF 

TAKOFF 

402 

QMM 

TAKOFF 

403 

c**** 

USE  DEFAULT  CUMB  OUT  SPEED  IF  NO  USER  INPUT.  SET  VCOFUG  TO 

TAKOFF 

404 

QMM 

.TRUE.  TO  PREVENT  RE-INRIALIZING  VCLMOLfT. 

TAKOFF 

405 

IF(.NOT.VCOFLAG)THEN 

TAKOF 

406 

IF(VCLMOUT.EQ2ERO)  VCLMOUT  =  VKCAS 

TAKOF 

407 

VCOFlAGx.TRUE. 

TAKOF 

408 

ENDIF 

TAKOF 

409 

IF  (HAGLLT.HCUMB)  THEN 

TAKOF 

410 

QMM 

CONSTANT  THETA  PORTION  OF  TAKEOFF. 

TAKOF 

411 

c**** 

MODULATE  ALPHA  FOR  CONSTANT  PITCH  ANGLE  CUMB  OR  TO  COMPLETE 

TAKOF 

412 

c**~ 

ROTATION. 

TAKOF 

413 

IF(.N0T.INISEG1)THEN 

TAKOF 

414 

c**** 

INITIATE  CONSTANT  PITCH  ANGLE  CUMB  AT  SEGMENT  ONE  CUMB 

TAKOF 

415 

c*~* 

GRADIENT.  SET  MAXIMUM  PITCH  ANGLE  TO  THTCLM  FOR  CONSTANT 

TAKOF 

416 

Q«*. 

THETA  PORTION  OF  TAKEOFF. 

TAKOFF 

417 

INISEG1  x.TRUE 

TAKOF 

418 

THTMAX  xTHTCLM 

TAKOF 

419 

ENDIF 

TAKOF 

420 

Q«M* 

CONSTANT  THETA  PORTION  OF  TAKEOFF 

TAKOF 

421 

QMM 

MODULATE  ALPHA  FOR  CONSTANT  THETA  CUMB  OR  TO  COMPLETE 

TAKOF 

422 

QMM 

ROTATION. 

TAKOF 

423 

CAU.  PITCHfROTATE  ’,ALPHA.DADTCMD,DTTME,DTDTGEX.LUOUT) 

TAKOF 

424 
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ELSEIF(HAGLGE.HCUMB  MO.  HAGLLT.HCUVIOUT)  THEN 

TAKOFF 

425 

c**** 

CONSTANT  THETA  TO  CONSTANT  CUMBOUT  SPEED  TRANSITION 

TAKOFF 

426 

MODULATE  ALPHA  FOR  CONSTANT  SPEED  CUMB  OUT  WITHIN 

TAKOFF 

427 

QMM 

ALTITUDES  HCUMB  AND  HCLMOUT. 

TAKOFF 

428 

IF(.NOT.INIVCLM)THEN 

TAKOFF 

429 

c*^ 

INITIATE  CONSTANT  CAUBRATED  AIRSPEED  CUMB. 

TAKOFF 

430 

INIVCLM  =  .TRUE. 

TAKOFF 

431 

THTMAX  =  89.9 

TAKOF 

432 

UNENUM  =  UNENUM-»-1 

TAKOFF 

433 

WRrTE(LUOUT.1012)  HCUMB, T1ME,GDIST.VKCAS,VICTAS 

TAKOFF 

434 

ENDIF 

TAKOFF 

435 

IF(R0CFPM.GE2ER0)  THEN 

TAKOFF 

436 

IF(VKCAS.LT.VCLMOUT)  THEN 

TAKOFF 

437 

c**** 

REDUCE  ALPHA 

TAKOFF 

438 

CALL  PITCHfCUMB  ’ALrriA.-OADTCMD.DTIME.DTDTGEX, 

T44rc*PF 

439 

& 

LUOUT) 

TAKOFF 

440 

asE 

TAKOFF 

441 

c*^ 

INCREASE  ALPHA 

TAKOF 

442 

CALL  PITCHfCUMB  ‘ALPHA,  DADTCMD.DT1ME,DTDTGEX, 

TAKOFF 

443 

& 

LUOUT) 

TAKOF 

444 

ENDIF 

TAKOFF 

445 

ELSE 

TAKOFF 

446 

TERMaG  =  .TRUE. 

TAKOFF 

447 

WRrrE(LUOUT,1013)  ROCFPM,VCLMOUT,THTMAX 

TAKOFF 

448 

ENDIF 

TAKOFF 

449 

ELSEiF(HAGLGE.HCUVIOUT)  THEN 

TAKOFF 

450 

c**“ 

CONSTANT  THETA  TO  VKEND  OR  HMAX  AT  THTRY  PITCH  ATTITUDE 

TAKOFF 

451 

C— 

HCUMB  AND  HCLMOUT. 

TAKOF 

452 

IF(.NOT.INISEG2)THEN 

TAKOF 

453 

c**” 

INITIATE  CONSTANT  PITCH  ANGLE  CUMB  AT  SEGMENT  TWO  CUMB 

TAKOF 

454 

C«« 

GRADIENT. 

TAKOFF 

455 

INISEG2  =.TRUE. 

TAKOF 

456 

THTMAX  sTKIRY 

TAKOF 

457 

UNENUM  =  UNENUM-t-1 

TAKOF 

458 

WRrrE(LUOUT,1012)  HCLMOUT, TIME.GDIST,VKCAS.V1CTAS 

TAKOF 

459 

ENDIF 

TAKOF 

460 

IF{R0CFPM.GE2ER0)  THEN 

TAKOF 

461 

IF  (fTHETAF  -  THTaY)  .GE.  THTTOL)  THEN 

TAKOF 

462 

c**” 

REDUCE  ALPHA 

TAKOF 

463 

CAU.  PITCHfCUMB  'ALPHA, -DADTCMD,DTIME,DTDTGEX, 

TAKOF 

464 

& 

LUOUT) 

TAKOF 

465 

ELSEIF  (flHETAF  -  THTaY)  .LT.  -THTTOL)  THEN 

TAKOF 

466 

INCREASE  ALPHA 

TAKOF 

467 

CALL  PITCHfCUMB  'ALPHA  DADTCMD,DTIME,DTDTGEX, 

TAKOF 

468 

& 

LUOUT) 

TAKOF 

469 

ELSE 

TAKOF 

470 

THETAF  =  THTaY 

TAKOF 

471 

ENDIF 

TAKOF 

472 

ELSE 

TAKOF 

473 

TERMaG  =  .TRUE. 

TAKOF 

474 

WRrrE(LUOUT,1013)  ROCFPM,VCLMOUT, THTMAX 

TAKOF 

475 

ENDIF 

TAKOF 

476 

ENDIF 

TAKOF 

477, 
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1013 

FORMATC  SUBROUTINE  TAKOFF  IS  UNABLE  TO  SIMULATE  A  GUMS', 

TAKOFF 

478 

& 

’  USING  THE  INPUTS  OF  CUMB  OUT  SPEED  OR  PITCH';, 

TAKOFF 

479 

& 

'  ATTirUDE  BECAUSE  THE  RATE  OF  CUMB  IS  LESS  THAN', 

TAKOFF 

480 

& 

'  zero;;,'  rate  of  cumb,  cumb  out  speed,  and'. 

TAKOFF 

481 

& 

'  maximum  pitch  attitude  s'. 

TAKOFF 

482 

& 

F10.0, '  FEET/MINUTE,F10.0.‘  KNOTS'.FIO.O,'  DEGREES.") 

TAKOFF 

483 

c«« 

TAKOFF 

484 

C«« 

CHECK  FOR  TERMINATION  CRITERIA 

TAKOFF 

485 

IF(GDIST  .GT.DISTMAX  .OR.  HAGL  .GE.HMAX  .OR. 

TAKOFF 

486 

& 

TIME  .GT.TIMEMAX  .OR.  VKCAS.GE.VKEND)  TERMFLG  =  .TRUE. 

TAKOFF 

487 

IF(NCOUNT.EQ.10  .OR.  TERMFLG)  THEN 

TAKOFF 

488 

CALCUUTE  ADDITIONAL  OUTPUT  PARAMETERS,  WRITE  OUTPUT  AND 

TAKOFF 

489 

cr** 

INCREMENT  UNE  NUMBER  COUNTER  UNENUM. 

TAKOFF 

490 

IF(.NOT.TERMFLG)THEN 

TAKOFF 

491 

DADT  =  (ALPHA  -  ALPHAJ)/FLOATPTIME) 

TAKOFF 

492 

DTHTDT  =  (THETAF  -  THETAJ)/FLOAT(DTIME) 

TAKOFF 

493 

ENDIF 

TAKOFF 

494 

CALL  FORCEX{ALPHA,CO,CL) 

TAKOFF 

495 

GAMMA  sATAN(ROCAn’GS1*RX 

TAKOFF 

496 

ROCFPM  =ROC*60.0 

TAKOFF 

497 

c**** 

TAKOFF 

498 

RECALCULATE  FUGHTPATH  ACCELERATION  FOR  OUTPUT. 

TAKOFF 

499 

FPA  =  FPACCEL  -t-  G*SIN(GAMMAR) 

TAKOFF 

500 

IF(DTIME.GE.0.10DO)THEN 

TAKOFF 

501 

WRITE(LUOUT,1005)  TIME,GDIST,GWT,HAGLVKCAS,VKrAS,VKTGS, 

TAKOFF 

502 

& 

FPA,CL.CD,THETAF,ALPHA,GAMMA,DTHTDT, 

TAKOF 

503 

& 

ROCFPM.XLF,THRUST,XENG 

TAKOFF 

504 

ELSE 

TAKOFF 

505 

WRITE(LUOUT,1006)  TIME,GDIST,GWr,HAGL,VKCAS,VICTAS,VKTGS, 

TAKOFF 

506 

& 

FPACL,CD.THETAF,ALPHA,GAMMA,DTHTDT, 

TAKOF 

507 

& 

ROCFPM, XLF,THRUST,XENG 

TAKOFF 

508 

ENDIF 

TAKOFF 

509 

IF(TERMFLG)THEN 

TAKOFF 

510 

WRrrE(LUOUT,1014) 

TAKOFF 

511 

1014 

FORMAT(/,'  END  OF  TAKEOFF) 

TAKOFF 

512 

RETURN 

TAKOFF 

513 

ENDIF 

TAKOFF 

514 

UNENUM  s  UNENUM -t-l 

TAKOFF 

515 

IF(UNENUM.GE.NPAGE)  THEN 

TAKOFF 

516 

C“** 

RESET  UNE  NUMBER  COUNTER  LINENUM  AND  WRITE  HEADER  FOR 

TAKOFF 

517 

NEW  PAGE. 

TAKOFF 

518 

UNENUM =5 

TAKOFF 

519 

WRITE(LUOUT,1010) 

TAKOFF 

520 

WRITE(LUOUT,1004) 

TAKOFF 

521 

ENDIF 

TAKOFF 

522 

RESET  INTEGRATION  LOOP  COUNTER  ICOUNT  T0 1  AND  RESTART 

TAKOFF 

523 

c**** 

THE  AIRBORNE  INTEGRATION  LOOP. 

TAKOFF 

524 

ICOUNT  =  1 

TAKOFF 

525 

GO  TO  29 

TAKOFF 

526 

ENDIF 

TAKOFF 

527 

30  CONTINUE 

TAKOFF 

528 

END 

TAKOFF 

529 

Appendix  B 


Source  Code  Listing  B-31 


LLllll 


Subroutine  LANDNG 


SUBROl/nNE  LANDNG(AOA)  LANDNG 

THIS  SUBR(XJTINECO^frROLS  THE  EXECUTK)N  OF  THE  LANDING  MANEUVER.  LANDNG 

LANDNG  CALLS  STEDYST  TO  OBTAIN  THE  RB3UIRED  VALUES  OF  THRUST  LANDNG 

THRUST  AND  ANGLE  OF  ATTACK  FOR  STEADY  STATE  APPROACH.  LANDNG  LANDNG 

CALLS  FLARE  TO  EXECUTE  THE  FLARE  AND  CALLS  ROLLS  FOR  THE  GROUND  LANDNG 

PORTION  OF  THE  LANDING.  LANDNG 

LANDNG 

DOUBLEPRECISION  DTIME.DTIMEJ.TIME  CTRL 

PARAMETER  {LUIN^,LUOUT»4)  CTRL 

COMMON/CTRL/  DTIME.DTIMEJ.ICOUNT,JDEBUG,KENG,UNENUM,LUMSG,NCOUNT,  CTRL 

&  NEQ.NPAGE.TIME.T1MEROL  CTRL 

COMMON/AIRCRFT/  AOA3PTAR.B.CGPCT,CLALPH.CONF1G.DTDTMX,FLT.GWT.HZ,  AIRCRR 

&  LOAOING.SWING,THTMAX,WNGLOD;(LFMAX  aircrft 

COMMOWAERO/  CXCY,DADTCMD.DCDXDCLX,DTDTGEX,FLAP,FLPPCT,QS,  AERO 

&  SPOBRK,SPOIL£R,VKCAS,VKTAS  AERO 

COMMONeiGINE/  AITAMACH.OTFAIL.EPR,FE,FG.FGPCT,NENG.PWRCODE.  ENGINE 

&  REVNDX,RC, THRUST, VTANGLE.WFUEUXENG,XENGFLD,  ENGINE 

&  XENG0UT,XIDLE,XMIL,ZFN  ENGINE 

COMMON/AIRBORN/  ALPHAJ,ALPHMX,DTDT,GAMMAPP,R0CFPM,THETAF,XLF,XLFJ  AIRBORN 

COMMON/AIRSPED/  \fl<ABRK.VKAPP,\^RAKE.VKEND.\fl<FAIL,VKFLAP.\fl<FlPM^^  AIRSPED 

&  \A<MCG.VKR0TAT,VKSTART.VKWIND,VVVIND  AIRSPED 

COMMON/RUNWAY/  ABARGAOAABRK,BRAKMU,BRKFCTR,GAMMARW,GRW,HAGL,  RUNWAY 

&  HCLEAR,HFLARE,HGEAR,HRUNWAY,IMU,RCR,ROLLMU,TIMEFLD,  RUNWAY 

&  TiMEBRK,T1MEFLP,TIMES6K,TIMESPIJ(MU  RUNWAY 

DOUBLEPRECISION  VTAS.DISTACCEL,VTASJ.RK6RND  INTEG 

COMMON/INTEG/  VTAS,OIST,ACCEL,VrASJ,RKGRND(20)  INTEG 

DOUBLEPRECISION  FPVTAS.GAMMAR,FPDIST,PRESALT,FPACCEL,DGDTR.VHAS.  FPINTEG 

&  ROC.RKAIR  FPINTEG 

COMMON/FPINTEG/  FPVrAS,GAMMAR,FPDIST, PRESALT, FPACCEUDGDTR,VHAS,  FPINTEG 

&  ROC,RKAIR(40)  FPINTEG 

COMMON/ATMOS/  TEMPR,PRESS.RHO,AFPS,VISCOSK,DELTA,SIGMA,THETA,DTEMPF  ATMOS 

PARAMETER  {ASL*661.48,FPSKTS=1.687806.G=  32.174,  CONST 

&  RX*57.29577951308,TSLF=59.07ERO=0.0)  CONST 

COMMONAX)NST/  ASLSQR5,TWOOVR7  CONST 

LOGICAL  AOAOFLQ,BRKFLAG.CLRHGT,ERRFLAG,FAILaG,FLAPFLG,FPCTFLG,  FLAGS 

&  GEFLAG,LGRFLAG,UFTOFF,OVERaG,REVFUG,REVRSE.ROTATE,  FUGS 

&  RTOFLAG,SBKFUG,SPLFUG.SPOOUSTEADY.TERMaG,VECTRG,  FUGS 

&  VFFUG,WRrnTR  FUGS 

COMMON/FUGS/  AOAOFLG,BRKFUG,CLRHGT,ERRFUG,FA1LRG,FLAPFLG.  FUGS 

&  FPCTRG,GEFUG,LGRFUG,UFTOFF,OVERFLG.REVFUG,  FUGS 

&  REVRSE,ROTATE,RTOFUG,SBKFUG,SPLFUG,SPOOUSTEADY,  FUGS 

&  TERMaG,VECTFLG,VFFUG,WRmTR  FUGS 

LOGICAL  RNDV  LANDNG 

REALATMARY(8),S(48)  LANDNG 

EQUWAL£NCE(T04PRATMARY(1)),(FPVTAS,S{1))  LANDNG 

DATA  SINKTD  LANDNG 

&  /  10.(V  LANDNG 


1 


24 

25 
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NAMaiST/lMyALPHA,GA»ilMPP,HFI^ 

LANDNG 

26 

A 

NAlylElJST/LND2/  DTDTHX.SPLFLAG,WRmTR 

LANDNG 

26 

w 

ALPHAS  AOA 

LANDNG 

28 

QMM 

LANDNG 

29 

C*^  INPUT  DATA  LOADED  INTO  LANDNG  THRU  NAMEUST ILNDI. 

LANDNG 

30 

READ(LUIN,LND) 

LANDNG 

31 

REA<T(LUIN,LN02) 

LANDNG 

32 

LANDNG 

33 

Cr-  TERMINATE  PROGRAM  IF  APPROACH  FUGHT  PATH  ANGLE.  FLARE  HEIGHT  OR 

LANDNG 

34 

(T-  APPROACH  SPEED  NOT  INITIALIZED. 

LANDNG 

35 

IF  (GAMMAPP.EQ.1.0)  THEN 

LANDNG 

36 

CALL  HALT(LUIN,LUMSG,LUOUT.'  GAMMAPP  NOT  INPUT  BY  USER.') 

LANDNG 

37 

ELSEIF  (GAMMAPP.GE2ERO)  THEN 

LANDNG 

38 

CALL  HALT(LUIN.LUMSG,LUOUT.'  GAMMAPP  MUST  BE  LESS  THAN  ZERO.') 

LANDNG 

39 

ENDIF 

LANDNG 

40 

IF(HFUREEQ.-1.0)THEN 

LANDNG 

41 

CALL  HALT(LUIN.LUMSG,LUOUT,'  HFLARE  NOT  INPUT  BY  USER.') 

LANDNG 

42 

aSEIF(VKAPP  .EQ.  1 .0  ALPHA.EQ:  99.0)  THEN 

LANDNG 

43 

&  CALLHALT(LUIN,LUMSG,LUOUT, 

LANDNG 

44 

&  'VKAPP  OR  ALPHA  NOT  INPUT  BY  USER.') 

LANDNG 

45 

ENDIF 

LANDNG 

46 

IF(ALPHA.EQ.99.0)THEN 

LANDNG 

47 

C****  RND  ANGLE  OF  AHACK  FOR  STEADY  STATE  APPROACH. 

LANDNG 

48 

FINDV  » .FALSE. 

LANDNG 

49 

ELSE 

LANDNG 

50 

(T-  HND  AIRSPEED  FOR  STEADY  STATE  APPROACH;  INITIALIZE  CALIBRATED 

LANDNG 

51 

C**"  AIRSPEED  AT  100  KNOTS. 

LANDNG 

52 

m 

VKAPP*  100.0 

LANDNG 

53 

FINDV  =  .TRUE. 

LANDNG 

54 

ENDIF 

LANDNG 

55 

C**“ 

LANDNG 

56 

C**“  INITIALIZE  CURVE  FILES. 

LANDNG 

57 

CALLINICURV 

LANDNG 

58 

C**" 

LANDNG 

59 

C*—  OBTAIN  ATMOSPHERIC  VARIABLES. 

LANDNG 

60 

IF(riCLEAR.GT.HFLARE)  THEN 

LANDNG 

61 

HAGLxHCLEAR 

LANDNG 

62 

ELSE 

LANDNG 

63 

HAGL*  HFLARE 

LANDNG 

64 

ENDIF 

LANDNG 

65 

PRESALT  *  HRUNWAY  *  HAGL 

LANDNG 

66 

CAa  ATMOSPH(PRESALT.ATMARY) 

LANDNG 

67 

c**** 

LANDNG 

68 

(T-  INITIALIZE  FLIGHT  PATH  ANGLE,  TRUE  AIRSPEED,  MACH  NUMBER  AND  OS. 

LANDNG 

69 

VAPP  =VKAPP*FPSKTS 

LANDNG 

70 

FPVTAS  =VAPP/SQRT(SIGMA) 

LANDNG 

71 

GAMAPPR*GAMMAPP/RX 

LANDNG 

72 

GAMMAR  *GAMAPPR-ASIN((VWIND/FPVTAS)''SIN(GAMAPPR)) 

LANDNG 

73 

CAa  SPEED(  GAMMAR,FPVTAS,VWIND,AMACH,QS.VKCAS.VKEAS.VKTAS,  VKTGS, 

LANDNG 

74 

VTGS) 

LANDNG 

75 

VKCAS  *  VKAPP 

LANDNG 

76 

C**“ 

LANDNG 

77 

A 

C**“  OBTAIN  THRUST  AND  ANGLE  OF  AHACK  FOR  STEADY  STATE  APPROACH. 

LANDNG 

78 

w 

CAa  STEDYST(ALPHA,FPVTAS.GAMMAR.RNDV) 

LANDNG 

79 
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C*’“ 

LANDNG 

80 

C*—  RECALCULATE  APPROACH  SPEED  IF  ANGLE  OF  ATTACK  IS  AN  INPUT. 

LANDNG 

81 

IF(FINDV)'^.EN 

LANDNG 

82 

VAPP  *FPVTAS*SQRT(SIGMA) 

LANDNG 

83 

VKAPP  =  VAPP/FPSKTS 

LANDNG 

84 

ENDIF 

LANDNG 

85 

QMM 

LANDNG 

86 

C*—  CALCULATE  SINK  RATE  AT  APPROACH  IN  FEET/MINUTE. 

LANDNG 

87 

ROC  s  FPVTAS*SIN(GAMMAR) 

LANDNG 

88 

SINKRT»-ROC*60.0 

LANDNG 

89 

IF(ERRFLAG)THEN 

LANDNG 

90 

TERMFLGs.TRUE. 

LANDNG 

91 

AOA  =  ALPHA 

LANDNG 

92 

WRITE(LUOUT, 1001)  VKAPP,  AMMAPP,PRESALT>UJ>HA,ALPHMX,XENG.GWr 

LANDNG 

93 

1001 

FORMATf  —  FAILED  IN  THRUST  AND  ANGLE  OF  AHACK  ON  APPROACH*, 

LANDNG 

94 

& 

/,*  VKAPP,GAMMAPP,PRESALT=*,3F10.2. 

LANDNG 

95 

& 

i:  ALPHA,ALPHMX,XENG,GWr  =*,3F1 0.2, FI  0.0) 

LANDNG 

96 

RETURN 

LANDNG 

97 

ENDIF 

LANDNG 

98 

QMM 

LANDNG 

99 

C**"  DETERMINE  LOAD  FACTOR  FOR  FLARE. 

LANDNG 

100 

IF(HFLARE.GT2ER0)  CALL  FLARENZ(  ALPHA,GAMMAPP.GAMMATD, 

LANDNG 

101 

& 

HAGL,HCLEAR,HFURE,HRUNWAY,SINKTD, 

LANDNG 

102 

& 

THRUST,VKAPP,XLFLARE,XLFMAX) 

LANDNG 

103 

WRmTR  =  .TRUE. 

LANDNG 

104 

QMM 

LANDNG 

105 

C*“*  WRITE  HEADER  INFORMATION  FOR  OUTPUT. 

LANDNG 

loe 

UNENUMs? 

LANDNG 

107 

WRITE(LUOUT,1002)VKAPF  .GAMMAPP  .SINKRT  .ALPHA  .FLAP. 

LANDNG 

108 

& 

HRUNWAY,XLFMAX. 

LANDNG 

109 

& 

GAMMATD  .SINKTO*60.0  .THRUST  .SPOILER. 

LANDNG 

110 

& 

DTB4PF  .ALPHMX. 

LANDNG 

1'1 

& 

WNGLOD  .GAMMARW  .DADTCMD  .SPLFLAG. 

LANDNG 

vir 

& 

VKWIND  .DTDTMX 

lANDNG 

113 

1002  FOflMAT('ft  VKAPP  ='.R.1,  '  GAMMAPP=*.F6.1.’  SINKRT=\F6.1, 

L\NDNG 

114 

& 

ALPHA  ='.F7.2.  *  FLAP  =*.F6.1.’ HRUNWAY=’.F7.0. 

LANDTAG 

115 

& 

■  XLFMAX  ='.F6.2.  /. 

LANDNG 

116 

& 

'  GAMMATD  ='.F6.1.*  SINKTD=’.F6.1. 

LANDNG 

117 

& 

■  THRUST  =*.F7.0.'  SPOILER  =*.F6.1.  *  DTEMPF=’.R.1, 

LANDNG 

118 

& 

'  ALPHMX  =‘.F6.2.  /. 

LANDNG 

119 

& 

■WNGLOD  =',R.1,'  GAMMARW  =’.F6.1.* 

LANDNG 

120 

& 

■DADTCMD  =‘.R.2.'  SPLFLAG  =*,L6.  *  VKWIND  *’.R.1. 

LANDNG 

121 

& 

■DTDTMX  ='.F6.2.  1) 

LANDNG 

122 
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IF(TERMFLG)THEN 

LANDNG 

123 

C"**  TERMINATE  UkNDII^  EXECUTION. 

LANONG 

124 

AOAsALPHA 

LANDNG 

126 

WRITE{LUOUT.1003) 

LANDNG 

125 

1003  FORMAT(/,’ENDOFLANUlNG’) 

LANDNG 

126 

RETURN 

LANDNG 

127 

ELSEIF(HFLARE.GE.HCLEAR)  THEN 

LANDNG 

128 

CALCUUTE  VARIABLES  FOR  OUTPUT. 

LANDNG 

129 

OVERFLG  =  .TRUE. 

LANDNG 

130 

TIM1=  =DBLE(ZERO) 

LANDNG 

131 

LANDNG 

132 

cr-  WRITE  HEADER  RECORD  FOR  OUTPUT, 

LANDNG 

133 

WRITE(LUOUT.1004) 

LANDNG 

134 

1004  FORMATf  TIME  DIST.  W0GHT  ALT.  VCAS  VTAS  VTCS*. 

LANDNG 

135 

&  ■  ACCEL  a  CO  THETA  ALPHA  GAMMA  DTHET  *, 

LANDNG 

136 

&  '  R/C  LOAD  THRUST  XENGV. 

LANDNG 

137 

&  '(SEC)  (FEET)  (LBS)  (FEET)  (KTS)  (KTS)  (KTSy, 

LANDNG 

138 

&  '(FPS2)  (DEG)  (DEG)  (DK)  /DT 

LANDNG 

139 

&  '(FPM)  FACT  (LBS)  ORMIT;) 

LANDNG 

140 

ELSE 

LANDNG 

141 

STEADY  =  . TRUE. 

LANDNG 

142 

CALL  APPROCH(ALPHA.GAMMAPP,GDIST,HAGL,HCLEAR.HFLARE,HRUNWAY) 

LANDNG 

143 

ENDIF 

LANDNG 

144 

c*^ 

LANDNG 

145 

C*—  INITIALIZE  APPROACH  DISTANCE.  APPDIST. 

LhNDNG 

146 

APPOIST»GDIST 

LANDNG 

147 

LANDNG 

148 

(r**  INITIALIZE  LOAD  FACTOR  FOR  FLARE. 

LANDNG 

149 

XLF  .XLFLARE 

LANDNG 

150 

XLFMAXJ  xXLFMAX 

LANDNG 

151 

XLFMAX  =XLFLARE 

LANDNG 

152 

LANDNG 

153 

Cr-  CALL  SUBROUTINE  FLARE  WITH  RNAL  LOAD  FACTOR  VALUE. 

LANDNG 

154 

IF(HFLAREGT.ZERO)  THEN 

LANDNG 

155 

STEADY  =. FALSE. 

LANDNG 

156 

UNENUM  sUNENUM  +  l 

LANDNG 

157 

WRITE(LUOUT,1005)  HFLARE.XIF 

LANDNG 

158 

1005  FORMATC  **”  BEGIN  FLARE  AT  ‘,F4.1 FEET. 

LANDNG 

159 

&  ■  LOAD  FACTOR  =',F8.4,’G"S*~1 

LANDNG 

160 

CALL  FLARE(ALPhA.GCIST, ODIST, ROCTD.V^GS) 

LANDNG 

161 

ENDIF 

LANDNG 

162 

XLFMAX  s  XLFMAXJ 

LANDNG 

163 

IF(TERMFLG)THEN 

LANDNG 

164 

AOAs  ALPHA 

LANDNG 

165 

WRITE(LUOUT,1003) 

LANDNG 

166 

RETURN 

LANONG 

167 

ENDIF 

LANDNG 

168 

CALL  FORCEX(ALPHA,CD.a) 

LANDNG 

169 

UNENUM  »  UNENUM +  2 

LANDNG 

170 

WRITE(LUOUT,1006) 

LANDNG 

171 

1006  FORMATf  TOUCHDOWN 

LANDNG 

172 

CALL  SPEED/  GAMMAR.FPVTAS,VWINO>VUIACH,QS.VKCAS,VKEAS,VKTAS, 

LANDNG 

173 

VKTGS,VTGS) 

LANDNG 

174 
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AIRDIST  =GDIST 

LANONG 

175 

FLRDIST  =  AIRDIST  -  APPDIST 

LANONG 

176 

GAMMA  =ATAN(RO(WTGSrRX 

LANDNG 

177 

SINKRT  =-SlNKTD*60.0 

LANONG 

178 

THETAF  =  ALPHA 

LANDNG 

179 

IF(DTIME.GE.0.10D0)THEN 

LANDNG 

180 

WRrrE(LUOUT, 1007)  TIME, GDIST.GWT.ZERO.VKCAS,VICTAS,VKTGS, 

LANDNG 

181 

& 

FPACCEL,CL.CD,THETAF.ALPHA,GAMMA.DTDT, -SINKRT, 

LANDNG 

182 

& 

XLF,THRUST,XMU 

LANDNG 

183 

1007 

FORMAT(F6.1  ,F8.0,F9.0,F8.1 ,3F7.1  ,F7.2,F8.4,F7.4,4F7.2,F8.1 , 

LANDNG 

184 

& 

F6.2,F9.0,F7.3) 

LANDNG 

185 

ELSE 

LANDNG 

186 

WRITE(LUOUT,1008)TIME,GDIST,GWT,ZERO,VKCAS,VKTAS,VKTGS,FPACCEL,CL. 

LANDNG 

187 

& 

FPACCEL,CL,CD,THETAF,ALPHA,GAMMA,DTDT,-SINKRT, 

LANDNG 

188 

& 

XLF,THRUST,XMU 

LANONG 

189 

1008 

FORMAT(F6.2,F8.0,F9.0,F8.1 ,3F7.1  ,F7.2,F8.4,F7.4,4F7.2,F8.1 , 

LANDNG 

190 

& 

F6.2,F9.0,F7.3) 

LANDNG 

191 

ENDIF 

LANDNG 

192 

c**** 

LANDNG 

193 

INITIAUZE  GROUND  ROLL  INTEGRATION  VARIABLES  WITH  PREVIOUS 

LANDNG 

194 

c*“* 

AIRBORNE  INTEGRATION  VARIABLES  FOR  SUBROUTINE  ROLL 

LANONG 

195 

TIMEFLD  =  aOAT(TIME) 

LANDNG 

196 

VTAS  =FPVTAS 

LANDNG 

197 

CALLROLL{ALPHA,GDIST) 

LANDNG 

198 

AOA  =  ALPHA 

LANDNG 

199 

WRrrE(LUOUT,1009)INT(HCLEAR),GDIST-ODIST,AIRDIST,GDIST-AIRDIST, 

LANDNG 

200 

& 

APPDIST,FLRDIST,ABARG 

LANDNG 

201 

1009  FORMAT(/'  DISTANCE  OVER  A'.W,'  FOOT  OBSTACLE  ='.F7.1.'  FEET; 

LANDNG 

202 

& 

■  AIR  DISTANCE  =',F7.1 ,'  FEET;  GROUND  ROLL  DISTANCE  =’, 

LANDNG 

203 

& 

F7.1,'  FEET:V. 

LANDNG 

204 

& 

PRE-FLARE  DISTANCE  =’,F7.1,' FEET;  •, 

LANDNG 

205 

& 

'  FLARE  DISTANCE  =’,F7.1,’  FEET;  AVERAGE  DECELERATION  =', 

LANDNG 

206 

& 

F6.3,'GV,) 

LANDNG 

207 

RETURN 

LANDNG 

208 

END 

LANDNG 

209 
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Subroutine  STEDYST 


SUBROUTINE  STEDYST(ALPHA.FPVTAS,GAMMAR,RNDV) 

C****  THIS  SUBROUTINE  CALCUUTES  THE  REQUIRED  VALUES  OF  THRUST  AND 
0**“  ANGLE  OF  AHACK  OR  THRUST  AND  AIRSPEED  FOR  ZERO  ACCELERATION  ALONG 
C**“  AND  NORMAL  TO  THE  FUGHT  PATH,  DV/DT  AND  DG/DT,  RESPECTP/ELY.  THE 
C““  OUTER  LOOP  VARIES  THRUST,  WHILE  THE  TWO  INNER  LOOPS  VARY 
C****  ALPHA  FROM  ALPHM'*  TO  ALPHMX  OR  FPVTAS  FROM  VTASMN  TO  VTASMX.  FOR 
C“**  A  FIXED  VALUE  OF  THRUST  (OUTER  LOOP),  FUNCTIONS  DVDT  (ACCELERATION 
C****  ALONG  FUGHT  PATH),  AND  DGDT  (ACCELERATION  NORMAL  TO  FUGHT  PATH), 

C“**  ARE  CALLED  WITH  THE  VALUES  OF  ALPHA  (INNER  LOOP).  THESE  TWO 
C«**  FUNCTION  SUBROUTINES  CALL  FORCEX  SUBROUTINES  ITRLND  AND  ZEROX 
C**“  ARE  BOTH  ZERO  RNDERS. 

DOUBLEPRECISION  OTIME,DTIMEJ,TIME 
PARAMETER  (LUIN=3,LUOUT=4) 

COMMON/CTRU  DTIME,DTIMEJ,IC0UNT4DEBUG,KENG,UNENUM,LUMSG,NC0UNT, 
&  NEQ.NPAGE,TIME.TIMEROL 

COMMON/AIRCRFT/  A0A3PT,AR,B,CGPCT,CLALPH, CONFIG, DTDTMX.FLT,GWT,HZ, 

&  LOAOING,SWING,THTMAX,WNGLOD,XLFMAX 

COMMON/AERO/  CX,CY,DADTCMD,DCDXDCLX,DTDTGEX.FLAP,FLPPCT,QS, 

&  SPDBRK,SPOILER,VKCAS.VICTAS 

COMMON/ENGINE/  Arr,AMACH,DTFAIL.EPR,FE,FG,FGPCT,NEN3,PWRC0DE, 

&  REVNDX,RC.THRUST.VTANGLE,WFUEL,XENG,XENGFLD, 

4  xengout,x;dle,xmil.zfn 

COMMON/ATMOS/  TEMPR, PRESS, RHO,AFPS.VISCOSK.DELTA,SIGMA,THETA,DTEMPF 
PARAMETER  (ASL=«61 .48,FPSICTS*1 .687806.G*  32.174, 

4  RX*57.29577951308,TSLF=59.0.ZERO*0.0) 

COMMON/CONST/  ASLSQR5,TWOOVR7 

LOGICAL  AOAOFLG,BRKFLAG,CLRHGT,ERRFUG,FA1LFLG,FLAPFLG,FPCTRG, 

4  GEFLAG,LGRFLAG,UFTOFF,OVERFLG.REVFLAG,REVRSE,ROTATE. 

4  RTOFLAG,SBKFLAG.SPLFLAG,SPOOL,STEADY.TERMFLG,VECTFLG, 

4  VFFLAG,WRrnTR 

COMMONmGS/  AOAOFLG,BRKFLAG,CLRHGT,ERRFUG,FAILaG.FLAPaG, 

4  FPCTFLG,GEFLAG,LGRFLAG,UFTOFF,OVERaG,REVFLAG, 

4  REVRSE,ROTATE,RTOFLAG,SBKFLAG,SPLFLAG.SPOOLSTEADY, 

4  TERMaG,VECTFLG,VFFLAG,WRrnTR 

LOGICAL  FINDV 
REALINTERP 
EXTERNAL  DGDT.DVDT 

DATA  ALPHA0.ALPHA4,DALPHA,DVTAS,  EPS.  FACTOR.  FNSTEP.MAXITER 
4  /  0.0.  4.0,  1.0,  1.0,0.0001,  0  95,  1.05,  31/ 

ERRFUG  =  .FALSE. 

C**“ 

C*^  INinUlZE  NET  THRUST  TOLERANCE  TO  THE  GREATER  OF  0. 1  %  OF  GROSS 
C*“*  WEIGHT  OR  5  POUNDS. 

IF(GWT.GT.5000.)THEN 
TOLRNCE  =  0.C0rGV,T 
asE 

TOLRNCE  =  5.0 
ENDF 
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C"** 

STEDYST 

34 

C**“  INITIALIZE  UPPER  AND  LOWER  SEARCH  BOUNDARIES  FOR  THRUST  TO 

STEDYST 

35 

C**“  THE  QUOTIENT  OF  GROSS  WEIGHT  OVER  THE  ENGINE  MULTIPUCATIVE  FACTOR 

STEDYST 

36 

C““  AND  1%  OF  THE  GROSS  WEIGHT.  RESPECTIVELY. 

STEDYST 

37 

BOUNDU^GWT/XENG 

STEDYST 

38 

BOUNDL  =  GWT/100.0 

STEDYST 

39 

c«« 

STEDYST 

40 

C**“  MAKE  RRST  GUESS  AT  ALPHA  OR  VKAPP. 

STEDYST 

41 

IF(.NOT.RNDV)THEN 

STEDYST 

42 

C**“  RND  ANGLE  OF  AHACK. 

STEDYST 

43 

CALL  FORCEX{ALPHA4.CD4,a4) 

STEDYST 

44 

CAa  FORCEX(ALPHAO,COO,aO) 

STEDYST 

45 

ALPHA  =  INTERP(ALPHA4,ALPHA0,CL4,CL0,GWT/QS) 

STEDYST 

46 

CALL  FORCEX(ALPHA  ,CD  ,a) 

STEDYST 

47 

ALPHMX  =  ALPHA +  2.5 

STEDYST 

48 

ALPHMN  = -ALPHMX 

STEDYST 

49 

ELSE 

STEDYST 

50 

C"~  RND  AIRSPEED. 

STEDYST 

51 

C**" 

STEDYST 

52 

C*~*  FIND  APPROXIMATE  CL  AND  CD  FOR  MACH  NUMBER  AT  1 00  KNOTS 

STEDYST 

53 

C****  AIRSPEED. 

STEDYST 

54 

CALLFORCEX(ALPHA,CD  .CL) 

STEDYST 

55 

STEDYST 

56 

C****  CALCULATE  RJGHT  PATH  TRUE  AIRSPEED  BASED  ON  THE  APPROXIMATED 

STEDYST 

57 

C****  CL  AND  ASSUMPTION  OF  UFT  EQUAL  TO  WEIGHT  AND  ALPHA  EQUAL  TO 

STEDYST 

58 

C****  ZERO. 

STEDYST 

59 

FPVTAS  *  SQRT{2.0*GWrCOS(GAMMAR)/{CL*RHO*SWING)) 

STEDYST 

60 

CALL  SPEED!  GAMMAR.FPVTAS.0.0AMACH,QS.VKCAS.VKEAS,VKTAS, 

STEDYST 

61 

VKTGS.VTGS) 

STEDYST 

62 

CALLFORCEX(ALPHA.CD  .CL) 

STEDYST 

63 

VTASMX  =  FPVTAS +  10.0 

STEDYST 

64 

VTASMN  =  FPVTAS -10.0 

STEDYST 

65 

ENDIF 

STEDYST 

66 

c~** 

STEDYST 

67 

C“~  MAKE  FIRST  GUESS  AT  THRUST. 

STEDYST 

68 

TFIRST  =  1 .06*(CD*QS  +  GWrSIN(GAMMAR)) 

STEDYST 

69 

iF(JDEBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

STEDYST 

70 

&  WRITE(LUOUT.9001)TRRST.ALPHA.VKCAS.CD.CL.QS 

STEDYST 

■'I 

9001  FORMATr^  INITIAL  CONDITIONS””;. 

STEDYST 

72 

&  'THRUST, ALPHA,  VKAPP,  CD,  CL,  QS=';, 

STEDYST 

73 

&  F7.0,  R.2,  F9.1,  2F8.4,  F10.1,/) 

STEDYST 

74 

19  LABLNO  s  19 

STEDYST 

75 

ERROR  =99. 

STEDYST 

76 

JFUG  =0 

STEDYST 

77 

THRUST  sTRRST 

STEDYST 

78 

IF(FINDV)THEN 

STEDYST 

79 

FG  =THRUST/COSO(ALPHA+Arr) 

STEDYST 

80 

IF(JDEBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

STEDYST 

81 

&  WRITE(LUOUT,9002)  ICOUNT,LABLNO,THRUST,FPVrAS.DVDTHI. 

STEDYST 

82 

&  JFLAG.ERROR,ERRORJ 

STEDYST 

83 

B>38  Source  Code  Listing 


Appendix  B 


LLlll 


DO10ICOUNT=1,MAXITER 

IF(JFUG.LE.1)  ERRORJ  »  ERROR 


C*«t 

QMM 

29 


& 

& 


1001 

& 

& 


c*** 


O’*" 


FIND  VALUE  OF  THRUST  SUCH  THAT  DMIUT  IS  NEGATIVE  AT  FPVTAS 
EQUAL  TO  VTASMX.  WITH  A  REDUCTION  IN  FPVTAS  RESULTING  IN 
LESS  DRAG  DV/DT  WILL  CHANGE  SIGN(LE  A  BOUNDED  INTERVAL  IN 
WHICH  DV/DT  EQUAL  TO  ZERO  WILL  BE  FOUND). 

VTASHI  :::  VTASMX 

CALLSPEED(  GAMMAR,VrASHI.O.O,AMACH,QS.VKCAS,VKEAS,VKTAS, 
VKTG3.VTGS) 

DVDTHI  =DVDT(ALPHA.VTASHI,GAMMAR,GWr) 
IF(DVDTHI.GE.0.0)THEN 
•mRST»TFIRST/FNSTEP 
IF(TFIRST.GEBOUNDL)  GO  T0 19 
GOT0 199 
ENDIF 

SEARCH  FOR  DV/DT  EQUAL  TO  ZERO  FROM  VTASMX  TO  VTASMN. 
LABLNO  =  29 

VTASLO*  VTASHI -DVTAS 
FG  =THRUST/C0SD(ALPHA+A1T) 

IF(JDEBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

WRITE(LUOUT.9002)  ICOUNT.LABLNO, THRUST, VTASLO, DVDTHI, 
JFLAG,ERROR,ERRORJ 
IF(VTASLO.LT.  VTASMN)  THEN 
ERRFUG:r.TRUE. 

WRrTE(LUOUT,1001)THRUST,VTASLO,ERROR,ERRORJ,ICOUNT 
FORMATC  FAILED  IN  STEDYST.  NO  ^LUTION  FOR  DVDT.', 

/,'  THRUST,FPVTAS,ERROR,ERRORJ,ICOUNT 
2F9.2,2F10.4,I3) 

RETURN 

ENDIF 

CALLSPEED(  GAMMAR,VTASLO,0.0,AMACH,QS,VKCAS,VKEAS,VKrAS, 
VKTGS,VTGS) 

DVDTLO=  DVDT(ALPHA,VTASLO.GAMMAR,GWT) 

CHECK  TO  SEE  IF  DV/DT  EQUAL  TO  ZERO  IS  BOUNDED. 

IF  (DVDTLO*DVDTHI.GT.O.O)  THEN 
VTASHI  *  VTASLO 
DVDTHI  =DVDTLO 
GO  TO  29 
ENDIF 
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QMM 

STB)YST 

126 

QMM 

ONCE  FPVTAS  INTERVAL  FOR  DV/DT  EQUAL  TO  ZERO  IS  BOUNDED, 

STEDYST 

127  A 

c**** 

CALL  FUNCTION  ZEROX  TO  FIND  FPVTAS1.  THE  VALUE  OF  FPVTAS  FOR 

STEDYST 

128  W 

QMM 

DV/DT  EQUALS  ZERO. 

STEDYST 

129 

FPVTAS1  =ZEROX(VTASLO,VrASHI,DVDT,ALPHA.GAMMAR.GWT.EPS. 

STEDYST 

130 

& 

RNDV) 

STEDYST 

131 

c*“* 

STEDYST 

132 

c**" 

SEARCH  FOR  DG/DT  SAME  AS  ABOVE  SEARCH  FOR  DV/DT  EQUALS  ZERO. 

STEDYST 

133 

c**“ 

IF  DG/DT  EQUALS  ZERO  AT  FPVTAS  =  VTASMX,  PROGRAM  FAILS. 

STEDYST 

134 

0*M* 

FPVTAS2  IS  REQUIRED  VALUE  OF  FPVTAS  FOR  DG/DT  EQUAL  TO  ZERO. 

STEDYST 

135 

VTASHI  =  VTASMX 

STEDYST 

136 

CALLSPEED(  GAMMAR, VTASHI, 0.0,AMACH, OS, VKCAS,VKEAS,VKTAS, 

STEDYST 

137 

VICTGS,VTGS) 

STEDYST 

138 

DGDTHI »  DGDT(ALPHA.VTASHI,GAMMAR,GWT) 

STEDYST 

139 

IF(DGDTHI.LT.0.0)  GO  T0 199 

STEDYST 

140 

39 

LABLN0  =  39 

STEDYST 

141 

VTASLO  =  VTASHI -DVTAS 

STEDYST 

142 

FG  =THRUST/COSD(ALPHA+AIT) 

STEDYST 

143 

IF(JOEBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

STEDYST 

144 

& 

WRITE(LUOUT,9003)  ICOUNT,LABLNO,THRUST,VTASlO,DGDTHI, 

STEDYST 

145 

& 

JFUG,ERROR,ERRORJ 

STEDYST 

146 

IF(VTASLO.LT.VTASMN)  THEN 

STEDYST 

147 

TFIRST  =  TFIRST/FNSTEP 

STEDYST 

148 

IF(TFIRST.GE.BOUNOL)  GO  T0 19 

STEDYST 

149 

GO  T0 199 

STEDYST 

150 

ENDIF 

STEDYST 

151 

CALLSPEED(  GAMMAR,VTASLO,0.0,AMACH,QS,VKCAS,VKEAS,VICTAS, 

STEDYST 

152  ^ 

VKTGS,VTGS) 

STEDYST 

153  9 

DGDTLO  =DGDT(ALPHA,VTASLO,GAMMAR,GWT) 

STEDYST 

154 

IF(DGDTLOT)GDTHI.GT.O.O)  THEN 

STEDYST 

155 

VTASHI  =VTASLO 

STEDYST 

156 

DGDTHI  =  DGDTLO 

STEDYST 

157 

GOTOS9 

STEDYST 

158 

ENDIF 

STEDYST 

159 

FPVTAS2  =ZEROX(VTASLO,VTASHI,DGDT,ALPHA,GAMMAR,GWT,EPS, 

STEDYST 

160 

& 

FINDV) 

STEDYST 

161 

• 
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QMM 

STEDYST 

162 

QMM 

FIND  ERROR  BETWEEN  FPVTASI  AND  FPVTAS2. 

STEDYST 

163 

ERROR  =  (FPVTASI  -  FPVTAS2yVTASMX 

STEDYST 

164 

IF  ((ABS(ERROR).LT.0.001  ).OR. 

STEDYST 

165 

& 

(ABS(ERROR).LT.0.005  .AND.  ICOUNT.GT.25).OR. 

STEDYST 

166 

& 

(JFLAG.EQ.3  ))THEN 

STEDYST 

167 

FPVTAS  =  FPVTASI 

STEDYST 

168 

CALL  SPEED(GAMMAR,FPVTAS,O.O.AMACH,QS.VKCAS,VKEAS.VKTAS. 

STEDYST 

169 

VKTGS.VTGS) 

STEDYST 

170 

RETURN 

STEDYST 

171 

ELSE 

STEDYST 

172 

c**" 

MAKE  NEW  GUESS  AT  THRUST  AND  REPEAT  DV/DT  AND  DG/DT  LOOPS 

STEDYST 

173 

UNTIL  FPVTASI  EQUALS  FPVTAS2  (WITHIN  TOLERANCES). 

STEDYST 

174 

CALL  rrRLND(ERROR.ERRORJ,THRUST, FACTOR, TOLRNCE^FLAG) 

STEDYST 

175 

ENDIr 

STEDYST 

176 

10 

CCNTINUZ 

STEDYST 

177 

199 

WRITE(LUOUT.1 003)  TRRST,DGDTHI.ERROR,ERRORJ, FPVTASI  ,FPVTAS2, 

STEDYST 

178 

& 

ICOUNT 

STEDYST 

179 

1003 

FORMATf  “*  FAILED  IN  SUBROUTINE  STEDYST.V, 

STEDYST 

180 

& 

■  TRRST,  DGDTHI,  ERROR,  ERRORJ,  FPVTASI 

STEDYST 

181 

& 

■  FPVTAS2,ICOUNT  =  V.F8.0,5F10.4,I7) 

STEDYST 

182 
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-ITT-  ’  - - — 

ELSE 

STH)YST 

183 

FG  =THRUST/COSO(ALPHHi+AIT) 

STEDYST 

184  A 

IF(X)EBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

STEDYST 

185  W 

& 

WRrTE(LUOUT,9004)  ICX)UNT.LABLNO.THRUST.ALPHA,DVDTHI. 

STEDYST 

186 

& 

JFUG, ERROR, ERRORJ 

STEDYST 

187 

C)O20ICOUNT»1,MAXlTER 

STEDYST 

188 

IF(JFUG.L£.1)  ERRORJ  =  ERROR 

STEDYST 

189 

C““ 

STEDYST 

190 

C“** 

RND  VALUE  OF  THRUST  SUCH  THAT  DV/DT  IS  NEGATIVE  AT  ALPHA 

STEDYST 

191 

cr** 

EQUAL  TO  ALPHMX,  WITH  A  REDUCTION  IN  ALPHA  RESULTING  IN  LESS 

STEDYST 

192 

LESS  DRAG  DV/DT  WILL  CHANGE  S1GN(I.E.  A  BOUNDED  II^RVAL  IN 

STEDYST 

193 

Qm* 

WHICH  DV/DT  EQUAL  TO  ZERO  WILL  BE  FOUND). 

STEDYST 

194 

ALPHHI  »  ALPHMX 

STEDYST 

195 

DVDTHI  =DVDT(ALPHHI,FPVrAS,GAMMAR,GWT) 

STEDYST 

196 

IF(DVDTHI.GE.0.0)THEN 

STEDYST 

197 

TRRST  =  TFIRST/FNSTEP 

STEDYST 

198 

IF(rRRST.GE.BOUNDL)  GO  T0 19 

STEDYST 

199 

GO  TO  299 

STEDYST 

200 

ENDIF 

STEDYST 

201 

0MM 

STEDYST 

202 

QMM 

SEARCH  FOR  DV/DT  EQUAL  TO  ZERO  FROM  ALPHMX  TO  -ALPHMX. 

STEDYST 

203 

49 

LABLNO  =  49 

STEDYST 

204 

At  PHLO  =  ALPHHI -DALPHA 

STEDYST 

205 

FG  »THRUST/COSD(ALPHLO+AiT) 

STEDYST 

206 

IF(JDEBUG.EQ.6666  .OR.  JDEBUG.EQ.9999) 

STEDYST 

207 

& 

WRrrE{LUOUT,9004)  ICOUNT,LABLNO.THRUST,ALPHLO, DVDTHI. 

STEDYST 

208 

& 

JFLAG,ERROR.ERRORJ 

STEDYST 

209  A 

IF(ALPHLO.LT  JOPHMN)  THEN 

STEDYST 

210  W 

ERRFUG  =  .TRUE. 

STEDYST 

211 

WRITE(LUOUT,1002)THRUST,ALPHLO,ERROR.ERRORJ,ICOUNT 

STEDYST 

212 

1002 

FORMAT(  ■  -  FAILED  IN  STEDYST.  NO  SOLUTION  FOR  DVDT.’, 

STEDYST 

213 

& 

i:  THRUST>UJ>HA,ERROR, ERRORJ, ICOUNT  =’, 

STEDYST 

214 

& 

2F9.2,2F1 0.4,13) 

STEDYST 

215 

RETURN 

STEDYST 

216 

ENDIF 

STEDYST 

217 

DVDTLO  =  DVDT{ALPHLO,FPVTAS,GAMMAR,GWT) 

STEDYST 

218 

c**** 

STEDYST 

219 

c*~* 

CHECK  TO  SEE  IF  DV/DT  EQUAL  TO  ZERO  IS  BOUNDED. 

STEDYST 

220 

IF  (DVDTLOT)VDTHI.GT.O.O)  THEN 

STEDYST 

221 

ALPHHI  =ALFHLO 

STEDYST 

222 

DVDTHI  =  DVDTLO 

STEDYST 

223 

GO  TO  49 

STEDYST 

224 

ENDIF 

STEDYST 

225 

cr** 

STEDYST 

226 

c*^ 

ONCE  ALPHA  INTERVAL  FOR  DV/DT  EQUAL  TO  ZERO  IS  BOUNDED. 

STH)YST 

227 

c*— 

CALL  FUNCTION  ZEROX  TO  RND  ALPHAI,  THE  VALUE  OF  ALPHA  FOR 

STEDYST 

228 

cr** 

DV/DT  EQUALS  ZERO. 

STEDYST 

229 

ALPHAI  *  ZEROX(ALPHLO,ALPHHI,DVDT,FPVTAS.GAMMAR.GWT,EPS, 

STEDYST 

230 

& 

RNDV) 

STEDYST 

231 

• 

1M2 
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c**“ 

QMM 

Q*M* 

QMM 


59 


& 

& 


& 

C— 

Q«M* 


& 

& 


SEARCH  FOR  DG/DT  SAME  AS  ABOVE  SEARCH  FOR  DV/DT  EQUALS  ZERO. 
IF  DQ/DT  EQUALS  ZERO  AT  ALPHA  =  ALPHMX,  PROGRAM  FAILS. 

ALPHA2  IS  REQUIRED  VALUE  OF  ALPHA  FOR  DG/DT  EQUAL  TO  ZERO. 
ALPHHI  ALPHMX 

DGDTHI  =  DGDT(ALPHHI,FPVTAS,GAMMAR,GWT) 

IF(DGDTHI.LT.0.0)  GO  TO  299 
LABLNO»S9 

ALPHLO  =  ALPHHI  •  DALPHA 
FG  =THRUST/COSO(ALPHLO+Arr) 

IF(JDEBUG.EQ.6666  .OR.  JOEBUG.EQ.9999) 

WRITE(LUOUT,9005)  ICOUNT.LABLNO, THRUST, ALPHLO.DGDTHI, 
JFUG, ERROR, ERRORJ 
IF(ALPHLO.LT.ALPHMN)  THEN 
TFIRST  =  TFIRST/FNSTEP 
IFfmRST.GEBOUNDL)  GO  T0 19 
GO  TO  299 
ENDIF 

DGDTLO  =  DGDT(ALPHLO,FPVTAS,GAMMAR,GWT) 
IF(DGDTLO*DGDTHI.GT.O.O)  THEN 
ALPHHI  s  ALPHLO 
DGDTHI  =  DGDTLO 
GO  TO  59 
ENDIF 

ALPHA2  =  ZEROX{ALPHLO>UJ»HHI,DGDT,FPVTAS,GAMMAR,GWT,EPS, 
RNDV) 

RND  ERROR  BETWEEN  ALPHA1  AND  ALPHA2. 

ERROR  =  (ALPHA1  -  ALPHA2)/ALPHMX 
IF  ((ABS(ERROR).LT.0.005  ).OR. 

(ABS(ERROR).LT.0.010  JkND.  ICOUNT.GT.25).OR. 

(JFLAG.EQ.3  ))THEN 

ALPHA  «ALPHA1 

RETURN 


ELSE 

(r“  MAKE  NEW  GUESS  AT  THRUST  AND  REPEAT  DV/DT  AND  DG/DT  LOOPS 

C*“  UNTIL  ALPHA1  EQUALS  ALPHA2  (WITHIN  TOLERANCES). 

CAlLrTRLND(ERROR,ERRORJ,THRUST.FACTOR,TOLRNCE,JFUG) 

ENDIF 

20  CONTINUE 

299  WRITE(LUOUT,1004)  TriRST,DGDTHI,ERROR,ERRORJ,ALPHA1,ALPHA2, 

&  KXXJNT 

1004  FORMATf*”  FAILED  IN  SUBROUTINE  STEDYST.V, 

&  'TFIRST,  DGDTHI,  ERROR,  ERRORJ,  ALPHA1,', 

&  •  ALPHA2,ICOUNT  =  V.F8.0,5F10.4,I7) 

ENDIF 
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232 

STEDYST 

233 

STEDYST 

234 

STEDYST 

235 

STEDYST 

236 

STEDYST 

237 

STEDYST 

238 

STEDYST 

239 

STEDYST 

240 

STEDYST 

241 

STEDYST 

242 

STEDYST 

243 

STEDYST 

244 

STEDYST 

245 

STEDYST 

246 

STH)YST 

247 

STEDYST 

248 

STEDYST 

249 

STEDYST 

250 

STEDYST 

251 

STEDYST 

252 

STEDYST 

253 

STEDYST 

254 

STEDYST 

255 

STEDYST 

256 

STEDYST 

257 

STEDYST 

258 

STEDYST 

259 

STEDYST 

260 

STEDYST 

261 

STEDYST 

262 

STEDYST 

263 

STH)YST 

264 

STEDYST 

265 

STEDYST 

266 

STEDYST 

267 

STEDYST 

268 

STEDYST 

269 

STEDYST 

270 

STEDYST 

271 

STEDYST 

m 

STEDYST 

273 

STEDYST 

274 

STEDYST 

275 

STEDYST 

276 

STEDYST 

277 
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ERRFLA6».TRUE.  STB)YST 


9002  FORMATC  iCOUNT,  LABLNO.  THRUST.  FPVTAS, 

&  '  ERROR,  ERRORJ«V. 

&  218,  F8.0.  F8.1.  F8.4.  I7,2F8.3) 

9003  FORMATf  ICOUNT,  LABLNO.  THRUST.  FPVTAS, 

&  '  ERROR.  ERRORJ^V. 

&  218,  F8.0,  F8.1,  F8.4,  I7.2F8.3) 

9004  FORMATC  ICOUNT.  LABLNO,  THRUST,  ALPHA. 

&  '  ERROR.  ERRORJ^V. 

&  218,  F8.0.  F8.1,  F8.4,  I7,2F8.3) 

9005  FORMATC  ICOUNT,  LABLNO,  THRUST.  ALPHA, 

&  '  ERROR,  ERRORJ  =  V. 

&  218,  F8.0,  F8.1,  F8.4,  I7,2F8.3) 

RETURN 
END 


DVDT,JFIA6,‘, 

STEDYST 

STEDYST 

STEDYST 

DGDT.JFLAG,’, 

STEDYST 

STEDYST 

STEDYST 

DVDT.JFUG,', 

STEDYST 

STEDYST 

STEDYST 

DGDT.JFUG,’, 

STEDYST 

STEDYST 

STEDYST 

STEDYST 

STEDYST 
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limULlL 


Subroutme  FLARENZ 


SUBROUTINE  FiARENZ(ALPHA,GAMMAPP,GAMMATD,HAGUHCL£AR,HaARE, 

&  HRUNWAY,SINiaD.THRUST.\rt<APP;(IJaARE;(LFMAX) 

THIS  SUBROUTINE  DETERMINES  THE  CORRECT  TARGET  LOAD  FACTOR  FOR 
THE  LANDING  FLARE. 

SUBROUTINE  ITRLND  IS  A  ZERO^NDING  ROUTINE.  WHICH  VARIES  THE 
INDEPENDENT  VARIABLE  BASED  ON  THE  SIZE  AND  SIGN  OF  THE  ERROR. 

THE  LOOP  CONTAINING  ITRLND  IS  EXITED  SUCCESSFULLY  WHEN  JFLAG  =  3, 

OR  THE  MAGNITUDE  OF  THE  ERROR  IS  LESS  THAN  SOME  ACCEPTABLE  VALUE. 
VARIABLE  XOUNT  STORES  THE  NUMBER  OF  ITERATIONS  WHICH  IS  UMITED 
TO  25. 

DOUBLEPRECISION  DTIME.DTIMEJ,TIME 
PARAMETER  (LUIN>3.LUOUTa4) 

COMMON/CTRiy  DTIME.DTIMEJ,ICOUNr4)EBUG,KENG,UNENUM.LUMSG,NCOUNT, 

&  NEQ,NPAGE.TIME,TIMEROL 

DOUBLEPRECISION  FPVTAS,GAMMAR.FPDiST, PRESALT, FPACCEL,DGDTR,VHAS, 

&  ROC,RKAIR 

COMMON/FPINTEG/  FPVrAS,GAMMAR,FPOIST, PRESALT, FPACCEUDGDTR.VHAS, 

&  ROC,RKAIR(40) 

PARAMETER  (ASL^I . 48, FPSK7S=1 .687806,0=  32.174. 

&  RX=S7.29577951306,TSLF=59.0,ZERO=0.0) 

COMMONm^ST/  ASLSQR5,TWOOVR7 

LOGICAL  AOAOFLG.BRKFLAG,CLRHGT.ERRFLAG,FAILFLG,FLAPFLG.FPCTaG. 

&  GEFUG.LGRFUG,UFTOFF.OVERFLG,REVFLAG,REVRSE, ROTATE, 

&  RTOFLAQ.SBKFUG.SPLFUG.SPOOUSTEADY,TERMaG,VECTFLG, 

&  VFFUG,WRmTR 

COMMON/FLAGSI  AOAOFLG,BRKFLAG,CLRHGT,ERRFLAG.FAILaG,FLAPFLG, 

&  FPCTFLG,GEFLAG,LGRFLAG,UFTOFF.OVERFLG,REVFUG. 

&  REVRSE.ROTATE.RTOFLAG,SBKFLAG.SPLFLAG,SPOOL,STEADY, 

&  TERMFLG.VECTFLG,VFFLAG,WRnTrR 

CHARACTER  ENGGRP^.FAILGRP^,FAILMOO*5,FAILSr4.MVR^.MANUVR*6. 

&  THRCR\r3.TK0TYPE7 

COMMON/CHARV/  ENGGRP,FAILGRP.FAILMOD,FAILST,MVR,MANUVR,THRCRV, 

&  TKOTYPE 

REALINTERP 

DATA  EPSROC,FACTOR.MAXrrER.TOLRNCE 
&  /  0.5,  1.03,  25,  0.00001/ 

C**'* 

C*~*  CALCULATE  INITIAL  LOAD  FACTOR  GUESS  FOR  FLARE 
VAPP  =VKAPPTTSKTS 
GAMAPPR  =  GAMMAPP/RX 
GAMATDR  =  ASIN(-SiNKTD/VAPP) 

XLFLARE  =(VAPP^(COS(GAMATDR)-COS(GAMAPPR)y 
&  {G*HFLARE))+1.0 

GAMMATD=GAMATDR*RX 

IF(XLFLAREGTJ{LFMAX)  CALI  HALT(LUIN.LUMSG.LUOUT, 

&  'FLARE  LOAD  FACTOR  EXCEEDS  MAXIMUM  UMIT.') 


FLARENZ 

1 
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2 

FURENZ 

3 
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4 

FLARENZ 

5 

FLARENZ 

6 

FLARENZ 

7 

FLARENZ 

8 

FLARENZ 

9 

FLARENZ 

10 

FLARENZ 

11 

FLARENZ 
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1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

FPINTEG 

1 

FPINTEG 

2 

FPINTEG 

3 

FPINTEG 

4 

CONST 

1 

CONST 

2 

CONST 

3 

FUGS 

1 

FUGS 

2 

FUGS 

3 

FUGS 

4 

FUGS 

5 

FUGS 

6 

FUGS 

7 

FUGS 

8 

CHARV 

1 

CHARV 

2 

CHARV 

3 

CHARV 

4 
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17 

FLARENZ 

18 

FLARENZ 

19 

FURENZ 

20 

FLARENZ 

21 

FURENZ 

22 
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23 
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24 
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25 
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26 
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27 
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Cr**  INTTIAUZE  PARAMETERS  R^E  IT^ 

AOAAPP  =ALPHA 
BOUNOU  rXLFMAX 
ERROR  =1.0 
FNAPP  =  THRUST 
FPVTASJ  =FPVTAS 
JFLAG  =0 
IF(.NOT.WRrnTR)THEN 

IF(JDEBUG.EQ.6666  .OR.  JOEBUG.EQ.9999)  THEN 
WRITE(LUOUT,1001) 

ELSE 

WRrrE(LUOUT.1002) 

ENDIF 

ENDIF 

D0 10  JCOUNT=1,MAXrrER-^1 
IF(JFUG.NE.4)THEN 

IF  (JFUG.LE.1)  ERRORJ  =  ERROR 
ALPHA  =  AOAAPP 
□TIME  =DTIMEJ 
FOIST  =ZERO 
FPVTAS  =  FPVTASJ 
ROCTDJ  =ROCTD 
THRUST  = FNAPP 
TIME  =OBLE(ZERO) 

XLF  =XLFLARE 
XLFMAX  =XLFLARE 
UNENUM  =  6 

IFIWRITITR)  WRfTE(LUOUT.1003)  XLF.SINKTD.FACTOR.ERROR.JFUG, 

JCOUNT 

IF(HCLEAR.LE.HFLARE)THEN 

IF(WRmTR)  WRrTE(LUOUT,1004) 

ELSE 

STEADY  =  . TRUE. 

CALL  APPROCH(ALPHA,GAMMAPP.FDIST,HAGUHCLEAR.HFLARE, 
&  HRUNWAY) 

ENDIF 

STEADY  =  . FALSE. 

CALL  FLARE(ALPHA,FDIST, ODIST, ROCTD.VKTGS) 

IF(7ERMFLG)  RETURN 

WRITE(LUOUT,1005)  -HOCTD*60.0,JFLAG,XOUNT 
DELTROC  =  -ROCTD  -  SINKTD 
IF(SINKTD.NE2ERO)7HEN 
ERROR  =  DaTROC/SINKTD 

ELSE 

ERROR  =  DELTROC 
ENDIF 
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FURENZ  73 
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FLARENZ  75 
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cr** 


& 


& 


•P  (JFLAG.LT.3  MD.  ABS{DELTROC).GE.EPSROC/60.0)  THEN 
X'FJsXLF 

GUESS  NEW  LOAD  FACTOR  BASED  ON  ERROR-CALL  ITRLND. 
CALLrrRlND{ERROR,ERRORJ.XLFURE.FACTOR,TOLRNCE.JFLAG) 
IF(JCOUNT.GT^5  .OR. 

XLFLAREGT.BOUNDU  .OR.  XLFLARE.LE.1.0)  THEN 
RESET  PARAMETERS  TO  PRE-FLARE  SEHINGS. 

ALPHA  sAOAAPP 
DTIME  =DTIMEJ 
FPVTAS  =FPVTASJ 
THRUST  *FNAPP 
XLF  =XLFLARE 
XLFMAX  =BOUNC)U 

WRITE(LUOUT, 1006)  XLFLAREROCTD,SINICrD, ERROR, ERRORJ, 
JCOUNTJFUG 

RETURN 

ENDIF 

ELSE 

JFUG  =  4 


ENDIF 
ENDIF 
10  CONTINUE 

1001  FORMATCtr**  LANDING*",/) 

1002  FORMAT(  “•LANDING*",/) 

1003  FORMATfl)  XLFLARE,  SINKTD,  FACTOR,  ERROR,  JFUG,  JCOUNT=7. 

&  F1 1.4,  2F82,  F8.4,  218  /) 

1004  FORMATf  TIME  DIST.  WEIGHT  ALT.  VCAS  VTAS  VTGS', 


ACCEL  a  CD  THETA  ALPHA  GAMMA  DTHET  *, 
R/C  LOAD  THRUST  XENGV, 

(SEC)  (FEET)  (LBS)  (FEET)  (KTS)  (KTS)  (KTS)’, 
(FPS2)  (DEG)  (DEG)  (DEG)  /DT  ', 

(FPM)  FACT  (LBS)  OR  mj) 

***  SINK  RATE  AT  TOUCHDOWN  =*,F7.1,‘  FEET/MINUTE’, 
CONVERGENCE  FLAG  =M3, 

FLARENZ  ITERATION  NUMBER  =M3,'  **") 

-FAILED  IN  FLARENZy, 

XLFLARE,ROCTD,SINKTD  =',F8.4,2F92y, 
ERROR.ERRORJ.JCOUNT,JFLAG  *’^F7.4,2I3) 


& 

& 

& 

& 

& 

1005  FORMATC 
& 

& 

1006  FORMATC 
& 

& 

c*— 

C—  TOUCHDOWN  RATE  WITHIN  TOLERANCE:  RESET  PARAMETERS  TO  PRE-FLARE 

C*—  SETTINGS. 

ALPHA  =AOAAPP 
DTIME  ^DTIMEJ 


FPVTAS  =FPVTASJ 
THRUST  =FNAPP 
XLF  =XLFLARE 


XLFMAX  =BOUNDU 


IF(JCOUNT.GE1)THEN 

XLFLARE  =  (INTERP(XLF,XLFJ,ROCTD,ROCTDJ,-SINKTD)  +  2.0*XLF)/3.0 
ENDIF 
RETURN 
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FLARENZ 

92 

FLARENZ 

93 

FLARENZ 

94 

FLARENZ 

95 

FLARENZ 

96 

FLARENZ 

97 

FLARENZ 

08 

FLARENZ 

99 

FLARENZ 

100 

FLARENZ 

101 

FLARENZ 

102 

FLARENZ 

103 

FLARENZ 

104 

FURENZ 

105 

FLARENZ 

106 

FURENZ 

107 

FURENZ 

108 

FLARENZ 

109 

FLARENZ 

110 

FLARENZ 

111 

FLARENZ 

112 

FURENZ 

113 

FURENZ 

114 

FLARENZ 

115 

FURENZ 

116 

FURENZ 

117 

FLARENZ 

118 

FURENZ 

119 

FURENZ 

120 

FLARENZ 

121 

FLARENZ 

122 

FURENZ 

123 

FLARENZ 

124 

FLARENZ 

125 

FURENZ 

126 

FLARENZ 

127 

FLARENZ 

128 

FURENZ 

129 
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Subroutine  APPROCH 


SUBROUTINE  APPROCH(ALPHA,GAMMAPP,GDIST,HAGL,HCLEAK,HFLARE,HRUNWAY) 

APPROCH 

1 

c**“ 

THIS  SUBROUTINE  CONTROLS  THE  EXECUTION  OF  THE  LANDING  APPROACH 

APPROCH 

2 

CT"  WHEN  THE  OBSTACLE  CLEARANCE  HBGHT.  HCLEAR,  IS  ABOVE  THE  FLARE 

APPROCH 

3 

HEIGHT,  HFLARE.  USING  THE  VALUES  FROM  SUBROUTINE  STEDYST  AS 

APPROCH 

4 

C**“ 

CONSTANTS.  APPROCH  DOES  NOT  USE  RUNGE-KUTTA  NUMERICAL  INTEGRATION. 

APPROCH 

5 

Q*M* 

APPROCH 

6 

DOUBLEPRECISION  DTIME,DTIMEJ,TIME 

CTRL 

1 

PARAMETER  (LUIN=3,LUOUT=4) 

CTRL 

2 

common/ctrl; 

DTIME,DTIMEJ,ICOUNT,JDEBUG,KENG,UNENUM,LUMSG,NCOUNT, 

CTRL 

3 

& 

NEQ,NPAGE,TIME,TIMEROL 

CTRL 

4 

COMMON/AIRCRfT/ 

AOA3PT,AR.B.CGPCT.CLALPH,CONRG,DTDTMX,FLT,GWT,HZ. 

AIRCRR 

1 

& 

LOADING,SWING,THTMAX,WNGLOD,XLFMAX 

AIRCRFT 

2 

COMMON/AERO/ 

CX.CY.DADTCMD,DCDX.DCLX.DTDTGEX,FLAP.FLPPCT,OS, 

AERO 

1 

& 

SPOBRK.SPOILER.VKCAS.VKTAS 

AERO 

2 

COMMON/ENGINB 

Arr,AMACH,DTFAIL,EPR,FE,FG,FGPCT,NENG,PWRCODE, 

ENGINE 

1 

& 

REV?JDX,RC.THRUST.VTANGLE.WFUEU(ENG,XENGFLP 

ENGINE 

2 

& 

XENGOUT,XIDLE,XMIL,ZFN 

ENGINE 

3 

COMMON/AIRSPED/ 

VKABRILVKAPP.VKBRAKE,VKEhfl),VKFAIL.VKFLAP,VKFLPMX, 

AIRSPED 

1 

& 

VKMCG,VKROTAT.VKSTART.VKWIND,VWIND 

AIRSPED 

2 

DOUBLEPRECISION 

FPVTAS.GAMMAR.FPDIST,PRESALT.FPACCEL.DGDTR,VHAS, 

FPINTEG 

1 

& 

ROC,RKAIR 

FPINTEG 

2 

COMMON/FPINTEG/ 

FPVTAS.GAMMAR.FPDIST.PRESALT.FPACCEL.DGDTR,VHAS, 

FPINTEG 

3 

& 

ROC.RKAIR(40) 

FPINTEG 

4 

COMMON/ATMOS/ 

TEMPR.PRESS.RHO>^,VlSCOSK.DaTA,SIGMA,THETA.DTEMPF 

ATMOS 

1 

PARAMETER  (ASL^I. 48, FPSKTS^I. 687806, G=  32.174, 

CONST 

1 

& 

RX*57.29577951308.TSIF*59.07ERO=0.0) 

CONST 

2 

COMMON/CONST/ 

ASLSQR5.TWOOVR7 

CONST 

3 

LOGICAL  AOAOFLG,BRKFLAG.CLRHGT.ERRFUG.FAILaG.FlAPFLG,FPCTRG, 

FLAGS 

1 

& 

GEFLAG,LGRFLAG.UFTOFF.OVERaG,REVFLAG,REVRSE,ROTATE, 

FLAGS 

2 

& 

RTOFLAG.SBKFlAG.SPLFUG.SPOOtSTEADY,TERMFLG.VECTaG, 

FLAGS 

O 

& 

VFFLAG,WRmTR 

nlAGS 

4 

COMMON/FUGS/ 

AOA0FLG,BRKFLAG,CLRHGT.ERRFUG,FAILFLG,FLAPaG. 

FLAGS 

5 

1 

FPCTaG.GEFUG,LGRFUG,UFTOFF.OVERFLG,REVFLAG, 

FLAGS 

6 

& 

REVRSE.ROTATE.RTOFUG,SBKFLAG.GPLFUG,SPOOL.STEADY, 

FUGS 

7 

& 

TERMFLG.VECTFLG,VFFUG.WRmTR 

FUGS 

8 

REAL  ATMARY(8),S(48),INTERP 

APPROCH 

16 

EQUIVALENCE  (TEMPR,ATMARY(1)).(FPVTAS.S{1)) 

APPROCH 

17 

DATAAPPOTIMW.5/ 

APPROCH 

18 

c**** 

APPROCH 

19 

WRITE  HEADER  RECORD  FOR  OUTPUT. 

APPROCH 

20 

IF(WRrnTR)  WRITE(LUOUT.1 001 ) 

APPROCH 

21 

1001  FORMATf  TIME  DIST.  WEIGHT  ALT.  VCAS  VTAS  VTGS*, 

APPROOi 

22 

i 

■  ACCEL 

CL  CD  THETA  ALPHA  GAMMA  DTHET  ', 

APPROCH 

23 

& 

'  R/C  LOAD  THRI'C"  '  CNGV. 

APPROCH 

24 

& 

'(SEC)  (FEET)  (L  ,)  (KTS)  (KTS)  (KTS)', 

APPROCH 

25 

& 

'(FPS2) 

(DEG)  (DEG)  (DEG)  /DT  ', 

APPROCH 

26 

& 

■(FPM)FACT  (LBS)ORIiW,0 

APPROCH 

27 

GAMAPPR  =  GAMMAPP/RX 

APPROCH 

28 

GAMHMAR  ^  GAMAPPR  -  ASIN((VWIND/FPVTAS)*SIN(GAM«PPR)) 

APPROCH 

29 

VAPP  =VKAPPFPSKTS 

APPROCH 

30 
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C«« 

APPROCH 

31 

C“** 

CALCULATE  SINK  RATE  AT  APPROACH  IN  FEET/MINUTE. 

APPROCH 

32 

ROC  =  FPVTAS*SIN(GAMMAR) 

APPROCH 

33 

SINKRT  =  -ROC*60.0 

APPROCH 

34 

C«« 

APPRXH 

35 

C“** 

CALCULATE  VARIABLES  FOR  OUTPUT  ON  APPROACH. 

APPROCH 

36 

DELTAH  =-ROC*APPDTIM 

APPROCH 

37 

DGDIST  =-DELTAH/rAN(GAMAPPR)-VWIND*APPDTIM 

APPRXH 

38 

DTDT  =FPACCEL  =  ZERO 

APPROCH 

39 

GDIST  = -DGDIST 

APPROCH 

40 

HAGL  =HCLEAR  + DELTAH 

APPROCH 

41 

OVERFLG  =  .FALSE. 

APPROCH 

42 

TIME  =DBLE(-APPDTIM) 

APPROCH 

43 

CALL  SPEED(  GAMMAR,FPVTAS,VWIND,AMACH,QS.VKCAS,VKEAS.VKTAS,  VKTGS, 

APPROCH 

44 

VTGS) 

APPROCH 

45 

VKCAS  =VKAPP 

APPROCH 

46 

XLF  =1.0 

APPROCH 

47 

19HAGL  =HAGL  -DELTAH 

APPROCH 

48 

FPVTASJ  =FPVTAS 

APPROCH 

49 

IF(HAGLGT.HFLARE)THEN 

APPROCH 

50 

c**** 

OBTAIN  ATMOSPHERIC  VARIABLES. 

APPROCH 

51 

PRESALT  =HRUNWAY  +  HAGL 

APPROCH 

52 

CALL  ATMOSPH(PRESALT>LTMARY) 

APPRXH 

53 

CALL  FORCEX(ALPHA.CD,CL) 

APPROCH 

54 

FPVTAS  =VAPP/SC^^'SIGMA) 

APPROCH 

55 

FPACCEL  =  (FPVTAS -FPVTASJyAPPDTIM 

APPROCH 

56 

GDIST  =  GDIST -^DGDIST 

APPROCH 

57 

HAGU  =HAGL 

APPROCH 

58 

TIME  =TIME  +  DBLE(APPDnM) 

APPRXH 

59 

XLF  =1.0 

APPROCH 

60 

THETAF  =  ALPHA +  GAMMAR*RX 

APPROCH 

61 

CALL  SPEED(  GAMMAR,FPVTAS.VWIND>m«ACH, OS, VKCAS, VKEAS.VKTAS,  VKTGS, 

APPROCH 

62 

VTGS) 

APPRXH 

63 

VKCAS  =VKAPP 

APPROCH 

64 

UNENUM  =UNENUM>1 

APPRXH 

65 

IF(WRmTR)THEN 

APPROCH 

66 

IF(APPDTIM.GE.0.10)THEN 

APPROCH 

67 

WRrTE(LUOUT,1 002)  TIME,GDIST.GWT,HAGL,VKCAS,VKTAS,VKTGS, 

APPROCH 

68 

& 

FPACCEL.CUCD, THETAF, ALPHA, GAMMAPP, 

APPROCH 

69 

& 

DTDT.-SINKRT,XLF,THRUST,XENG 

APPROCH 

70 

ELSE 

APPROCH 

71 

WRrrE(LUOUT,1003)  TIME.GDIST.GWT,HAGL,VKCAS,VKTAS,VKTGS, 

APPROCH 

72 

& 

FPACCEL,CL,CD,THETAF,ALPHA,GAMMAPP, 

APPROCH 

73 

& 

DTDT.-SINKRT,XLF.THRUST,XENG 

APPROCH 

74 

ENDIF 

APPROCH 

75 

ENDIF 

APPROCH 

76 

1002 

FORMAT(F6.1  .F8.0,F9.0,F8.1 ,3F7.1  ,F7.2,F».4.R.4,4F7.2,F8.1 . 

APPROCH 

77 

& 

F6.2,F9.0,R.3) 

APPROCH 

78 

1003 

FORMAT(F6.2,F8.0.F9.0,F8.1 ,3R.1  ,R.2,F8.4,R.4,4R.2.F8.1 , 

APPROCH 

79 

& 

F6.2.F9.0,R.3) 

APPROCH 

80 

GOT0 19 

APPROCH 

81 

ENDIF 

APPROCH 

82 
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APPROCH 

83 

****  CALCULATE  TIME  PLUS  DTIMEJ  FOR  TIME  WITHOUT  ALTITUDE 

APPROCH 

84 

EXTRAPOLATION.  THEN,  AFTER  GROUND  DISTANCE  AND  TIME  ARE 

APPROCH 

85 

EXTRAPOLATED  FOR  THE  EXACT  FLARE  HEIGHT.  HFLARE,  CALCULATE 

APPROCH 

86 

NEW  DELTA  TIME  (WHICH  WILL  ALWAYS  BE  LESS  THAN  THE  ORIGINAL 

APPROCH 

87 

DELTA  TIME,  DTIMEJ)  SO  THAT  THE  EUPSED  TIME  WILL  BE  AN  EVEN 

APPROCH 

88 

****  MULTIPLE  OF  THE  ORIGINAL  DELTA  TIME.  DTIMEJ.  LATER  IN 

APPROCH 

89 

““  SUBROUTINE  FLARE,  DTIME  WILL  BE  RESET  TO  THE  ORIGINAL  DELTA 

APPROCH 

90 

”**  TIME,  DTIMEJ 

APPROCH 

91 

TTAPPDT  =  FLOATfTIME)  +  APPDTIM 

APPROCH 

92 

TTDTIME  =  FLOATfTIME  +  DTIME) 

APPROCH 

93 

APPROCH 

94 

****  EXTRAPOLATE  VALUES  FOR  DISTANCE  AND  TIME  TO  CORRESPOND  TO 

APPROCH 

95 

“"ALTITUDE  HFLARE. 

APPROCH 

96 

GDIST  -  INTERP(GDIST+DGDIST  .GDIST  ,HAGL,HAGU,HFLARE) 

APPROCH 

97 

TIME  =  INTERP(FLOATfriME+APPDTIM)  .aOATfriME).HAGL,HAGU,HFLARE) 

APPROCH 

98 

IF(APPDTIM.GT.aOAT(DTIME))  THEN 

APPROCH 

99 

IFfrTDTIME-FLOATfriME).LE.ZERO)  THEN 

.  APPROCH 

100 

DTIME  =  DBLEfTTAPPDT)  -  TIME 

APPROCH 

101 

ELSE 

APPROCH 

102 

DTIME  =  DBLEflTDTIME)  -  TIME 

APPROCH 

103 

ENDIF 

APPROCH 

104 

IMINUS  =  INT(APPDTIM/FLOAT(DTIMEJ))  + 1 

APPROCH 

105 

DO10M,IMINUS 

APPROCH 

106 

IF(DTIME.GT.DT!MEJ)  DTIME  =  DTIME  -  DTIMEJ 

APPROCH 

107 

10  CONTINUE 

APPROCH 

108 

ELSE 

APPRCCH 

109 

IF(nAPPDT-FLOAT(TIME).LE.ZERO)THFN 

APPROCH 

110 

DTIME  =  DBLEfirDTIME)  •  mME 

APPROCH 

111 

ELSE 

APPROCH 

112 

DTIME  =  DBLEfTTArPOT)  -  TIME 

APPROCH 

113 

ENDIF 

APPROCH 

114 

IMINUS  =  INT(FLOAT(DTIMEJ)/APPDTIM)  + 1 

APPROCH 

115 

DO  20 1=1  .IMINUS 

APPROCH 

116 

IF(FLOAT(DTIME).GT.APPDTIM)  DTIME  =  DTIME  -  DBLE(APPDTIM) 

APPROCH 

117 

20  CONTINUE 

APPROCH 

118 

ENDIF 

APPROCH 

119 

RETURN 

APPROCH 

Itu 

END 

APPROCH 

121 
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SutMtmtine  FLARE 


SUBROUTINE  FURE(ALPHA,GDIST.ODIST.ROCTD.\/KTGS) 

FLARE 

1 

c*“ 

THIS  SUBROUTINE  CALCUUTES  THE  FLARE  MANEUVER  BY  RUNGE-KUTTA 

FURE 

2 

c**" 

NUMERICAL  INTEGRATION.  THE  INTEGRATION  STEP  SIZE  IS  DTIME 

FLARE 

3 

SECONDS.  THE  INPUT  VARIABLE,  HFLARE,  IS  THE  HEIGHT  AT  WHICH  THE 

FLARE 

4 

c«« 

PURE  IS  STARTED. 

FLARE 

5 

C"** 

FURE 

6 

C«« 

THE  VARIABLE  DTDTGEX  IS  PROVIDED  TO  THE  USER  AS  A  MEANS  TO  ACCOUNT 

FLARE 

7 

C«« 

FOR  A  LOSS  IN  THE  PITCH  RATE  CAPABILITY  DUE  TO  GROUND  EFFECT. 

FLARE 

8 

C«« 

DTDTGEX  MAY  BE  A  FUNCTION  OF  WING  HEIGHT/WING  SURFACE  AREA,  TOTAL 

FLARE 

19 

c**" 

UFT  COEFRCIENT,  C!  •  CIRCULATION  UFT  COEFFiaENT;  ETC.  DTDTGEX 

FLARE 

10 

c**“ 

WOULD  EQUAL  1 .0  OUT  OF  GROUND  EFFECT  AND  LESS  THAN  1 .0  IN  GROUND 

FURE 

11 

w 

EFFECT.  DTDTGEX  SHOULD  BE  CALCULATED  IN  SUBROUTINE  'FXXAERO*. 

FURE 

12 

c**** 

PASSED  THROUGH  THE  CALUNG  STATEMENT  TO  SUBROUTINE  FORCEX.  THE 

FURE 

13 

c**** 

USER  MAY  IGNORE  DTDTGEX  WITHOUT  AFFECTING  PROGRAM  EXECUTION. 

FURE 

14 

C““ 

FURE 

15 

DOUBLEPRECISION  DTIME, DTIMEJ, TIME 

CTRL 

1 

PARAMETER  (LUIN=3,LUOUT=4) 

CTRL 

2 

COMMON/CTRL/  DTIME,DTIMEJ,ICOUNT,JDEBUG,KENG.UNENUM,LUMSG,NCOUNT, 

CTRL 

3 

& 

NEQ,NPAGE,TIME,TIMEROL 

CTRL 

4 

COMMON/AIRCRFT/  AOA3PT.AR,B,CGPCT,CLALPH,CONFIG,DTDTMX,FLT,GWT,HZ, 

AIRCRFT 

1 

& 

LOADiNG,SWING,THTMAX,WNGLOD,XLFMAX 

AIRCRFT 

2 

COMMON/AERC/  CX,CY,DADTCMD.DCDX,DCLX,DTDTGEX,FLAP,FLPPCT,QS, 

AERO 

1 

& 

SPDBRK,SPOILER,VKCAS.VKTAS 

AERO 

2 

COMMON/ENGINE/  AIT,AMACH.DTFA1L.£PR,FE.FG.FGPCT,NENG,PWRC0DE, 

ENGINE 

1 

& 

REVNDX,RC,THRUST,VTANGLE,WFUEL,XENG,XENGFLD, 

ENGINE 

2 

& 

XENG0UT,XIDLE,XMIL7FN 

ENGINE 

3 

COMMON/AIRBORN/  ALPHAJ,ALPHMX.DTDT,GAMMAPP,ROCFPM,THETAF,XLF,XLFJ 

AIRBORN 

1 

COMMON/AIRSPED/  VKABRK,VKAPP,VKBRAKE,VKEND.VKFAIL,VKFLAP,VKFLPMX, 

AIRSPED 

1 

& 

VKMCG,VKROTAT.VKSTART,VKWIND,VWIND 

AIRSPED 

2 

COMMON/RUNWAY/  ABARG,AOAABRK.BRAKMU.BRKFCTR,GAMMARW,GRW,HAGL, 

RUNWAY 

1 

& 

HCLEAR,HFLARE,HGEAR,HRUNWAY.IMU,RCR,ROLLMU,TIMEFLD, 

RUNWAY 

2 

& 

TIMEBRK,TIMEFLP.TIMESBK.nMESPL,XMU 

RUNWAY 

3 

DOUBI PPRECISION  FPVTAS,GAMMAR,FPDIST,PRESALT.FPACCEL,DGDTR.VHAS, 

PRINT  EG 

1 

& 

ROC,RKAIR 

FPINTEG 

2 

COMMON/FPINTEG/  FPVTAS,GAMMAR,FPDIST,PRESALT,FPACCEL,DGDTR,VHAS, 

FPINTEG 

3 

& 

ROC,RKAIR(40) 

FPINTEG 

4 

COMMON/ATMOS/  TEMPR,PRESS,RKO,AFPS,VISCOSK,DaTA,SIGMA,THETA.DTEMPF 

ATMOS 

1 

PARAMETER  (ASL=661 .48,FPSKTS=1 .687806,G=  32.174, 

CONST 

1 

& 

RX=57.29577951308,TSLF=59.0,ZERO=0.0) 

CONST 

2 

COMMON/CONST/  ASLSQR5,TWOOVR7 

CONST 

3 

LOGICAL  AOAOFLG,BRKFLAG,CLRHGT,ERRFUG.FAILFLG,FLAPFLG,FPCTFLG, 

FUGS 

1 

& 

GEFLAG,LGRFUG,LIFTOF.OVERFLG,REVFUG,REVRSE,ROTATE, 

FUGS 

2 

& 

RTOFUG,SBKFUG,SPLFLAG,SPOOL.STEADY,TERMFLG,VECTFLG, 

FUGS 

3 

& 

VFFLAG,WRinTR 

FUGS 

4 

COMMON/FUGS/  AOAOFLG,BRKFLAG,CLRHGT.ERRFUG,FAILaG,FLAPFLG, 

FUGS 

5 

& 

FPCTFLG,GEFUG.LGRFUG,UROFF.OVERFLG,REVFLAG, 

FUGS 

6 

& 

REVRSE,ROTATE,RTOFUG.SBKFLAG.SPU=LAG,SPOOL,STEADY, 

FUGS 

7 

& 

TERMFLG,VECTFLG.VFFUG,WRnTrR 

FUGS 

8 
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LOGICAL  INIRKI,INIRKJ 
REAL  ATlyiARY(8),S(48),INTERP 
EQUIVALEf^CE  (TEMPR^TMARY(1)).{FPVTAS.S(1)) 
EXTERNAL  DERIVAUINTERP 


c«« 

C****  AIRBORNE  INTEGRATION  VARIABLES 
Cr**  NEQ  =  NUMBER  OF  EQUATIONS 
C**“  DTIME  =  TIME  INTERVAL,  STEP  SIZE  (SECONDS) 

C««  fPVTAS  =  VELOCITY  ALONG  FLIGHT  PATH  (FEET/SECOND) 

Cr“GAMMAR  =FUGHT  PATH  ANGLE  (RADIANS) 

C**”  FPDIST  =  DISTANCE  ALONG  FUGHT  PATH  (FEET) 

C*“  PRESALT  =  ALTITUDE  (FEET) 

C**"  FPACCa  =  ACCELERATION  ALONG  FUGHT  PATH  (FEET/SECOND“2) 

C****  DGDTR  =  TIME  RATE  OF  CHANGE  OF  FUGHT  PATH  ANGLE 

C*^  (RADIANS/SECOND) 

C**«  VHAS  =  HORIZONTAL  SPEED  (FEET/SECOND) 

C****  ROC  =  RATE  OF  CUMB  (FEET/SECOND) 

C**” 

C**“  INITIAUZE  VARIABLES  FOR  FLARE  INTEGRATION  LOOP. 

GAMAPPR  =  GAMMAPP/RX 

GAMMAR  =  GAMAPPR  •ASIN((VWIND/FPVTAS)*SIN(GAMAPPR)) 

HAGL  =HFLARE 

ICOUNT  =1 

INIRKI  =  .FALSE. 

ODIST  =ZERO 

C**" 

C*”*  FLARE  INTEGRATION  LOOP 
19  D0 10  NCOUNTrlCOUNT.10 

PRESALT  *  HAGL  +  HRUNWAY 
ALPHAJ  =ALPHA 

C**** 

CT"  OBTAIN  ATMOSPHERIC  VARIABLES. 

CALL  ATMOSPH(PRESALT,ATMARY) 

CALL  FORCEX(ALPHA.CD.CL) 

CALL  SPEED(  GAMMAR, FPVTAS.VWIND,AMACH.QS,VKCAS,VKEAS,VKTAS,VICTGS, 


FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FURE 

FURE 

FLARE 

FLARE 

FLARE. 

FLARE 

FLARE 

FLARE 

FLARE 

FLARE 

FURE 

FLA.TE 

FLARE 

FLARE 

FURE 

FURE 

FURE 


27 
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•F(.NOT.INIRKI)THEN 

MAKE  INITIAL  INTEGRATION  STEP. 

CAU  |MTX(NEO  TIME.DTIME.S.DERIVAIJU.PHA) 

ROC  =  FPVTAS*SIN(GAMMAR) 

SINKRT  =-ROC*60.0 
THETAF=  ALPHA +  GAMMAR*RX 
GAMMA  ^  ATAN(RO(VVTGS)*RX 
DTDT  =ZERO 
IF(DTIMEJ.EQ.DTIME)THEN 

NO  SHORT  TIME  INCREMENT  IN  THIS  CALL  TO  FLARE. 

INIRKIs.TRUE 

INIRKJ  =  . FALSE. 

ELSE 

CT"  A  SHORT  TIME  INCREMENT  IN  THIS  CAU.  TO  FLARE  IS  NEEDED 

Cr*'  TO  BRING  THE  ELAPSED  TIME  TO  AN  EVEN  MULTIPLE  OF  DELTA 

C**“  TIME  FOR  THIS  INTEGRATION  STEP  ONLY. 

INIRKI  =  .TRUE. 

INIRKJ  =  .TRUE. 

ENDIF 

ELSE 

INCREASE  ANGLE  OF  AHACK  AT  A  RATE  OF  DADTCMD*OTDTGEX 
DEGREES  PER  SECOND. 

CALLPITCHCLANDING‘.ALPHA,DADTCMD,DTIME,DTDTGEX,LUOUT) 

MAKE  INTEGRATION  STEP. 

CALL  INT7(NEQ,TIME,0TIME.S,0ERIVAL.ALPHA) 

IF(ERRFLAG)THEN 

TERMINATE  LANDING  EXECUTION. 

TERMFLG*.TRUE. 

RETURN 

ELSEIF(INIRKJ)THEN 

A  SHORT  TIME  INCREMENT  IN  THIS  CALL  TO  FLARE  WAS  NEEDED 
TO  BRING  THE  ELAPSED  TIME  TO  AN  EVEN  MULTIPLE  OF  DELTA 
TIME  FOR  THIS  INTEGRATION  STEP  ONLY;  RESET  DTIME  TO  THE 
ORIGINAl  VALUE,  DTIMEJ.  SET  DTIMEJ  TO  ZERO  SO  THE 
FLAGS  INIRKI  AND  INIRKJ  WILL  BE  RESET  TO  PROPER  VALUES. 
INIRKI  =  .FALSE. 

ICOUNT=ICOUNT-1 
DTIME  r  DTIMEJ 
ENDIF 

GAMMA  =  ATAN(ROC/VTGS)*RX 
GDISTJ  =GDIST 

CAaiNTG(  DIST,nKAIR(27), DTIME, GAMMAR,VWIND, 0.0, 
DDIST,GDIST,GWT) 


FLARE 

63 

FLARE 

64 

FURE 

65 

FLARE 

66 

FLARE 

67 

FLARE 

68 

FLARE 

69 

FLARE 

70 

FLARE 

71 

FLARE 

72 

FLARE 

73 

FLARE 

74 

FLARE 

75 

FLARE 

76 

FLARE 

77 

FLARE 

78 

FLARE 

79 

FLARE 

80 

FLARE 

81 

FLARE 

82 

FLARE 

83 

FLARE 

84 

FLARE 

85 

FLARE 

86 

FLARE 

87 

FLARE 

88 

FLARE 

89 

FLARE 

90 

FLARE 

91 

FLARE 

92 

FLARE 

93 

FLARE 

94 

FURE 

95 

FURE 

96 

FLARE 

97 

FURE 

98 

FURE 

99 

FURE 

100 

FURE 

101 

FURE 

102 

FURE 

103 

FURE 

104 

FURE 

105 

FLARE 

106 
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HAGU  «HAGL 

FLARE 

107 

HAGL  »  PRESALT -HRUNWAY 

FLARE 

106^ 

SINKRT  =-ROC*60.0 

FLARE 

109W 

TIMEJ  »FL0AT(TIME-DT1ME) 

FLARE 

110 

c**** 

FLARE 

111 

c**** 

OBTAIN  SINK  RATE  AT  TOUCHDOWN. 

FLARE 

112 

IF  (HAGLLE0.10)THEN 

FLARE 

113 

C““ 

STORE  CURRENT  TIME  IN  TTDTIME  VARIABLE.  THEN,  AFTER 

FURE 

114 

c**** 

GROUND  DISTANCE  AND  TIME  ARE  INTERPOUTED  FOR  THE 

FLARE 

115 

TOUCHDOWN  POINT,  CALCULATE  NEW  DELTA  TIME  (WHICH 

FLARE 

116 

c**** 

WILL  ALWAYS  BE  LESS  THAN  THE  ORIGINAL  DELTA  TIME, 

FLARE 

117 

QMM 

DTIMEJ)  SO  THAT  THE  ELAPSED  TIME  WILL  BE  AN  EVEN 

FLARE 

118 

c**~ 

MULTIPLE  OF  THE  ORIGINAL  DELTA  TIME,  DTIMEJ.  LATER  IN 

FURE 

119 

C““ 

SUBROUTINE  ROLL,  DTIME  WILL  BE  RESET  TO  THE  ORIGINAL 

FURE 

120 

c*“* 

DELTA  TIME,  DTIMEJ. 

FURE 

121 

NPTS  =INT(TIME/DTIME) 

FURE 

122 

ICOUNT  =NPTS-INT(10.0*FLOAT(NPTS/10))-1 

FURE 

123 

TTDTIME  =FLOAT{TIME) 

FURE 

124 

GDIST  =INTERP(GDIST  ,GDISTJ  ,HAGL,HAGy,ZERO) 

FLARE 

125 

ROCTD  =INTERP(ROC  ,ROCJ  ,HAGL,HAGU,ZERO) 

FURE 

126 

TIME  =INTERP(FLOAT(TIME), TIMEJ  ,HAGL,HAGU,ZERO) 

FURE 

127 

DTIME  =  DBLE(TTDTIME)  •  TIME 

FURE 

128 

RETURN 

FURE 

129 

ELSEIF(R0C.GE2ER0)  THEN 

FLARE 

130 

NPTS  =INT(TIME/DTIME) 

FURE 

131 

ICOUNT  =  NPTS  -  INT{10.0*aOAT(NPTSj'10))  - 1 

FURE 

132 

ROCTD  =ZERO 

FLARE 

133^ 

RETURN 

FURE 

I34S 

ENDIF 

FURE 

135 

ROCJ  =ROC 

FURE 

136 

ENDIF 

FURE 

137 
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iF(HAGLLT2ERO)  HAGL  «  0.10 

FLARE 

138 

IF(OVERFLG  .AND.  HAGLLT.HCLEAR)  THEN 

FLARE 

139 

INTERPOLATE  TO  FIND  DISTANCE  AT  OBSTACLE  CLEARANCE  HEIGHT, 

FLARE 

140 

c~** 

HCLEAR,  IF  THE  FLARE  HEIGHT,  HFLARE,  IS  HIGHER  THAN  THE 

FLARE 

141 

c**** 

OBSTACLE  CLEARANCE  HEIGHT,  HCLEAR. 

FLARE 

142 

OVERFLG  =  . FALSE. 

FLARE 

143 

ODIST  =  INTERP(GDIST,GDISTJ,HAGL.HAGU,HCLEAR) 

FLARE 

144 

ENDIF 

FLARE 

145 

IF(WRrnTR  .AND.  (.NOT.  INIRKJ  .OR.  INIRKI)}  THEN 

FLARE 

146 

IF(DT1ME.GE.0.10D0)THEN 

FLARE 

147 

WRrrE(LUOUT,1002)  TIME,GDIST,GWT,HAGL,VKCAS,VKTAS,VKTGS, 

FLARE 

148 

& 

fpaccel,cl,cd,thetaf,alphagamma. 

FLARE 

149 

& 

DTDT,-SINKRT,XLF,THRUST,XENG 

FLARE 

150 

ELSE 

FLARE 

151 

WRITE(LUOUT,1003)  TIME,GDIST,GWT,HAQL,VKCAS,VKTAS,VKTGS, 

FLARE 

152 

& 

FPACCEL,CL,CD,THETAF,ALPHA.GAMMA. 

FLARE 

153 

& 

DTDT,-SINKRT,XLF.THRUST,XENG 

FLARE 

154 

ENDIF 

FLARE 

155 

UNENUM  =  UNENUM4l 

FLARE 

156 

IF(UNENUM.GE.NPAGE)  THEN 

FURE 

157 

c**“ 

RESET  UNE  NUMBER  COUNTER  UNENUM  AND  WRITE  HEADER  FOR 

FURE 

158 

C"“ 

NEW  PAGE. 

FURE 

159 

UNENUM  =  3 

FLARE 

160 

WRITE(LUOUT,1001) 

FLARE 

161 

ENDIF 

FURE 

162 

ENDIF 

FLARE 

163 

1001 

FORMATfttTIME  DIST.  WEIGHT  ALT.  VCAS  VTAS  VTGS', 

FLARE 

164 

& 

'  ACCEL  CL  CD  THETA  ALPHA  GAMMA  DTHET  ’, 

FURE 

165 

& 

■  R/C  LOAD  THRUST  XENG7, 

FURE 

166 

& 

■(SEC)  (FEET)  (LBS)  (FEET)  (KTS)  (KTS)  (KTS)', 

FLARE 

167 

& 

'{FPS2)  (DEG)  (DEG)  (DEG)  /DT 

FURE 

168 

& 

'(FPM)FACT  (LBS)ORMU',0 

FURE 

169 

1002 

FORMAT(F6.1  ,F8.0,F9.0,F8.1 ,3F7.1  ,F72.F8.4,R.4,4i72,F8.1 , 

FURE 

170 

& 

F6.2,F9.0,F7.3) 

FURE 

171 

1003 

FORMAT(F6.2,F8.C,F9.0,F8.1 .3F7.1  ,F7.2.F8.4,F7.4.4F72,F8.1 , 

FLARE 

172 

& 

F6.2,F9.0,F7.3) 

FURE 

173 

10  COt^NUE 

FLARE 

174 

GO  T0 19 

FLARE 

175 

END 

FLARE 

176 
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LLllLLL 


Subfoudne  RCXJL 


SUBROOTINE  ROa(ALPHA,G[)IST)  ROLL 

THIS  SUBROUTINE  a)^rmOLS  THE  EXECUTION  OF  THE  GROUND  ROLL  OF  THE  ROLL 

LANDING  MANEUVER  OR  THE  DECELERATION  PORTION  OF  A  REFUSE)  TAKEOFF  ROLL 

MANEUVER.  SUBROUTINE  ROLL  CALLS  INTX  TO  PERFORM  THE  NUMERICAL  ROLL 

INTEGRATION  OF  THE  RESULTANTS  OF  THE  EQUATIONS  OF  MOTION  AND  CALLS  ROLL 

FORCEX  TO  OBTAIN  THE  FORCE  COEFFICIENTS  FOR  THE  EQUATIONS  ROLL 

OF  MOTION.  ROLL 

ROLL 

DOUBLEPRECISION  DTIME,DTIMEJ,TIME  CTRL 

PARAMETER  (LUirW,LUOUT=4)  CTRL 

COMMON/CTRi;  DTIME,DTIMEJ.ICOUNrjDEBUG,KENG,UNENUM,LUMSG,NCOUNT,  CTRL 

&  NEQ.NPAGE.T1ME,TIMERa  CTRL 

COMMON/AIRCRFT/  AOA3PTMB,CGPCT.CLALPH,CONFIG.DTDTMX,FLT,GWT,HZ.  AIRCRR 

&  loaoing.swing,thtmax,vvnglod;(lfmax  AIRCRFT 

COMMON/AERO/  CXCY.DADTCMD,DCDX.DCLX.DTDTGEX.FLAP,FLPPCT.QS.  AERO 

&  spdbrk.spoiler,vkcas.vktas  aero 

COMMON/ENGINE/  Arr>UyiACH,DTFAIL.EPR,FE,FG,FGPCT,NENG,PWRCODE.  ENGINE 

&  REVNDX,RC.THRUST.VTANGLE,VilFUEL;(ENG,XENGFU),  ENGINE 

&  xengout;(idle,xmil^  engine 

COMMON/AIRSPED/  VKABRK.VKAPP.VI(BRAKE.VKENO.VKFAIL.VKFLAP,VKFLPMX,  AIRSPED 

&  VKMCG,VKROTAT,VKSTART,VKVVIND,VV»1ND  AIRSPED 

COMMON/RUNWAY/  ABARG>VOAABRK,BRAKMU,BRKFCTR,GAMMARW,GRW,HAGL.  RUNWAY 

&  HCLEAR,HFLARE.HGEAR,HRUNWAY,IMU,RCR,ROLLMU,TIMEFLD,  RUNWAY 

&  TIMEBRK,TIMEFLP,TIMESBK,TIMESPUXMU  RUNWAY 

DOUBLEPRECISION  VTASO<ST/lCCEL.VTASJ,RKGRND  INTEG 

COMMON/INTEG/  VTAS,DIST,ACCEL.\n‘ASJ,RKGRND(20)  INTEG 

COMMON/ATMOS/  TEMPR.PRESS,rj;C;yTS.VISCOSK,DaTA.SIGMA.THErA,DTEMFF  ATMOS 

PARAMETER  (ASL*661.48,FPSICTS=1.687806,G*  32.174,  CONST 

&  RX*5729577951308.TSLF=59.0,ZERO=0.0)  CONST 

COMMON/CONST/  ASLSQRS.TWOOVR?  CONST 

LOGICAL  AOAOFLG.BRKFLAG.CLRHGT,ERRFLAG,FAILRG,FLAPFLG.FPCTFLG,  FUGS 

&  GEFLAG,LGRFIA6.UFTOFF,OVERFLG,REVFUG,REVRSE,ROTATE,  FUGS 

&  RTOFlAG,SBKFLAG,SPLFLAG.SPOOLSTEADY,TERMFLG.VECTFLG.  FUGS 

&  VFFLAG.WRn7TR  FUGS 

COMMON/FUGS/  AOAOFLG,BRKFUG,CLRHGT,ERRFUG,FAILaG,FLAPFLG,  FUGS 

&  FPCTFLG,GffUG,LGRFUG,UFTOFF,OVERFLG.REVFUG,  FUGo 

&  REVRSE.ROTATE.RTOFUG,SBKFLAG,SPLFUG.SPOOUSTEADY,  FUGS 

&  TERMFLG,VECTFLG,VFFLAG,WRnTrR  FUGS 

CHARACTER  ENGGRP*3,FAILGRP*3,FA{LMOD*5,FAiLST^4,iMVR*3.MANUVR‘6,  CHARV 

&  THRCRV^,TKOTYPE7  CHARV 

COMMONOIARV/  ENGGRP,FAILGRP,FAILMOO.FAILST,MVR,MANUVR.THRCRV.  CHARV 

&  TKOTYPE  CHARV 


1 

2 

3 

4 

5 

6 

7 

8 
1 
2 

3 

4 
1 
2 
1 
2 
1 
2 
3 
1 
2 
1 
2 
3 
1 
2 
1 
1 
2 
3 
1 
2 

3 

4 

5 

6 

7 

8 
1 
2 

3 
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& 

C«« 

0MM 


V/ 
QMM 


C*“ 

QMM 


C**“ 

C**" 

QMM 

Q«M* 


LOGICAL  IDLE,IDLFUG,INIRK1,INIRKJ,SP00LF,THR0TTL 
REALATMARY(8),T(24) 

EQUIVALENCE  (TEMPR^TMARY(1)),(VTAS,T(1)) 

EXTERNAL  OERIVGR 

DATA  AOAABRK,  BRAKMU.IMU,  RCR,TIMEBRK,TIMEFLP,TIMEIDL.  TIMEREV 
/  0.0,  0.250,  0,  0.0,  3.0,  999.,  3.0,  0.0/, 

TIMESBK,  TIMESPU  VKABRK 

I  0.0,  0.0,  0.0/ 

NAlylELIST/ROL/BRAKMU,IMU,RCR 

NAMELIST/ROL2/AOAABRK,BRKFCTR,TIMEBRK,TIMEFLP,TIMEIDUTIMEREV,TIMESPL, 

VKABRK,VKBRAKE 

RESET  SOME  INPUT  PARAMETERS  FROM  ANY  PREVIOUS  RUN  (IF  ANY). 
PARAMETERS  NOT  RESET  HERE  RETAIN  THEIR  VALUE  FOR  THE  SUBSEQUENT 
RUN  IF  NOT  EXPUCITLY  DECLARED  IN  NAMEUST  ROL  AND  R0L2. 

BRKFCTR  =  1.0 
VKBRAKE  =  999. 

INPUT  DATA  LOADED  INTO  ROLL  THRU  NAMEUST  /ROU  AND  /R0L2/. 
READ(LUIN,Ra) 

READ(LUIN,ROL2) 

INITIALIZE  CURVE  RLES. 

CALLINICURV 

INITIALIZE  LOAD  FACTOR  T0 1 .0. 

XLF  =  1.0 


IF(.NOT.RTOFLAQ)THEN 
(r**  LANDING 

C*^ 

(r~  INITIALIZE  RUNGE-KUHA  INTEGRATION  FUG. 

INIRN  ». FALSE. 

KXXJNT  =ICOUNT-1 

(T*** 

(T-  INITIALIZE  ENGINE  THROTTUNG  FUGS  AND  VARIABLES. 

IDLFUG  FALSE. 

REVRSE  =. FALSE. 

IDLE  =  .TRUE. 

THROTTL  s.TRUE. 

XENGEND  =  FLOAT(NENG)*XIDLE 
XENGTRN  =  XENG 


ROLL  20 

ROLL  21 

ROLL  22 

ROLL  23 

ROLL  24 

ROLL  25 

ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
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asE 

ROLL 

61 

C""  REFUSED  TAKEOFF 

ROLL 

62 

Q*M* 

ROLL 

63 

C““  INITIALIZE  RUNGE-KUTTA  INTEGRATION  FUG. 

ROLL 

64 

INIRKI^.TRUE 

ROLL 

65 

QMM 

ROLL 

66 

C**"  INITIALIZE  ENGINE  THROTTUNG  FUGS  AND  VARIABLES. 

ROLL 

67 

IF  (NENG.GT.1)THEN 

ROLL 

68 

IDLE  =. FALSE 

ROLL 

69 

ELSE 

ROLL 

70 

IDLE  =.TRUE. 

ROLL 

71 

ENDIF 

ROLL 

72 

IDLFLAG  =.TRUE. 

ROLL 

73 

REVRSE  =. FALSE 

ROLL 

74 

SPOOLF  =. FALSE. 

ROLL 

75 

THROTTL  a. TRUE. 

Roa 

76 

C**” 

ROLL 

77 

C**“  FOR  THE  FAILED  ENGINE(S) 

ROLL 

78 

FENGTRN  aXBIGFLD 

ROLL 

79 

IF  (FAILST.EQ.'IDLE’)THEN 

ROLL 

80 

FENGENDaXIDLE 

ROLL 

81 

ELSEIF(FAiLST.EQ.'  MIL*)  THEN 

ROLL 

82 

FENGENDaXMlL 

ROLL 

83 

ELSEIF(FALST.EQ.’  OFF)  THEN 

ROLL 

84 

FENGENOaZERO 

ROLL 

85 

ELSE 

ROLL 

86 

FeiGENDal.O-XENGFLD 

ROLL 

87 

ENDIF 

ROLL 

88 

IF  (FAIUyiOO.EQ.’SEIZETrHEN 

ROLL 

89 

SPOOLF  a  TRUE 

ROLL 

90 

XENG  aXBIGOUT 

ROLL 

91 

XENGF  aFENGEND 

Roa 

93 

ELSE 

ROLL 

94 

XENGF  a  1.0 

< 

ROLL 

95 

ENDIF 

ROLL 

96 

C"” 

ROLL 

97 

C****  FOR  THE  REMAINING  ENGINE(S) 

ROLL 

98 

RENGTRN  a  FLOAT(INTp(ENGOUT)) 

ROLL 

99 

RENGEND  a  FLOAT(NENG  -  INT(XENGFLO))*XIDLE 

ROLL 

100 

XENGR  a  FLOAT(INT(XENGOUT)) 

ROLL 

101 

XENGTRNaXENGOUT 

ROLL 

102 

XENG  a  XENGF XENGR 

ROLL 

103 

ENDIF 

ROLL 

104 

QMM 

ROLL 

105 

C****  INITIAUZE  AERODYNAMIC  VARIABLES. 

ROLL 

106 

CALL  ATMOSPH(HRUNWAY>KTMARY) 

ROLL 

107 

CALL  FORCEX(AimCD.a) 

ROLL 

108 

QM* 

ROLL 

109 

C****  RUNGE-KUHA  INTEGRATION  OF  GROUND  ROLL 

ROLL 

110 

NEQ  a2 

ROLL 

111 

HAGLaZERO 

ROLL 

112 
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c**“ 

ROLL 

113 

cr“  GROUND  ROa  INTEGRATION  LOOP 

Roa 

114 

IF(IC0UNT.EQ,11)IC0UNT  =  1 

ROLL 

115 

19  D0 10  NCOUNT»ICOUNT,10 

ROLL 

116 

IF(.N0T.INIRKI)THB1 

ROLL 

117 

C**“ 

INITIALIZE  INTEGRATION  VARIABLES. 

ROLL 

118 

CALL  INTX(NEaTIME.DTIME,T,DERIVGRALPHA) 

ROLL 

119 

CALLINTG(  DIST,DISTJ,DTIME,0.0,VWIND,WFUEL. 

ROLL 

120 

DDIST,GDIST,GWT) 

ROLL 

121 

IF(DTIMEJ.EQ.O.OOO)THEN 

ROLL 

122 

QMM 

NO  SHORT  TIME  INCREMENT  IN  THIS  CAa  TO  ROLL 

ROLL 

123 

INIRKIs.TRUE 

Roa 

124 

INIRKJs  .FALSE 

ROLL 

125 

ELSE 

ROLL 

126 

QMM 

A  SHORT  TIME  INCREMENT  IN  THIS  CALL  TO  ROLL  IS  NEEDED 

ROLL 

127 

C'*** 

TO  BRING  THE  ELAPSED  TIME  TO  AN  EVEN  MULTIPLE  OF  DELTA 

ROLL 

128 

QMM 

TIME  FOR  THIS  INTEGRATION  STEP  ONLY. 

ROLL 

129 

INIRKI  =  .TRUE. 

ROLL 

130 

INIRKJ=.TRUE. 

ROLL 

131 

ENOIF 

ROLL 

132 

Appendix  B 


Source  Code  Listing  B>59 


ELSE 

ROLL 

133 

IF(.NOT.(AOAOFLG))THEN 

ROLL 

134  A 

QMM 

FOR  AIRCRAFT  NOT  AT  A  THREE  POINT  ATTITUDE.  SET  THE 

ROLL 

135  W 

c**** 

TARGET  ANGLE  OF  ATTACK  TO  EITHER  AOAABRK  OR  AOA3PT 

Roa 

136 

DEGREES. 

ROLL 

137 

ALPHAJsALPHA 

ROLL 

138 

IF(A0AABRK.EQ2ER0.0R.VKABRK.EQ.ZER0)  THEN 

ROLL 

139 

ALPHTGT  =  AOA3PT 

ROLL 

140 

ELSE 

ROLL 

141 

IF(VKCAS.GT.VKABRK)  THEN 

ROLL 

142 

ALPHTGT  =  AOAABRK 

ROLL 

143 

ELSE 

ROLL 

144 

ALPHTGT  =  AOA3PT 

ROLL 

145 

ENDIF 

ROU. 

146 

ENDIF 

ROLL 

147 

DALPHA  =  ABS(ALPHTGT  -  ALPHA) 

ROLL 

148 

IF(DALPHA.GT.DADTCMD*FLOAT(DTIME))THEN 

ROLL 

149 

CHANGE  ANGLE  OF  AHACK  UNTIL  EQUAL  TO  ALPHTGT. 

ROLL 

150 

IF  (ALPHA.LT.ALPKrGT)THEN 

ROLL 

151 

CAL'  PITCHfROLL  ‘^LLPHA,  DADTCMD.DTIME,DTDTGEX. 

ROLL 

152 

& 

LUOUT) 

ROLL 

153 

ZuiF  (ALPHA.GEALPHTGT)  THEN 

ROLL 

154 

CALL  PITCHCROLL  ‘.ALPHA.-DADTCMD.DTIME.DTDTGEX, 

ROLL 

155 

& 

LUOUT) 

ROLL 

156 

ENDIF 

Roa 

157 

DADT  =  {ALPHA  •ALPHAJ)/FL0ATPTIME) 

ROLL 

158 

ELSE 

ROLL 

159  ^ 

QMM 

IF  THE  ANGLE  OF  ATTACK  IS  WITHIN  ONE  PITCH  INCREMENT 

ROLL 

160  H 

OF  THE  TARGET  ANGLE  OF  AHACK,  SET  ALPHA  EQUAL  TO 

ROLL 

161 

cr*‘ 

ALPHTGT. 

ROLL 

162 

ALPHA  =  ALPHTGT 

Roa 

163 

DADT  =ZERO 

ROU 

164 

DADTCMD  =ZERO 

ROU 

165 

IF(ALPHTGT.EQ.2ER0)  AOAOFLG  =  .TRUE. 

ROLL 

166 

ENDIF 

ROLL 

167 

IF(QS*CY.GE.GV  ■•COSD(GAMMARW))  THEN 

ROLL 

168 

cr** 

UFTOFFf.n.TFRIONMET. 

ROLL 

169 

UFTOFF  =.TRUE. 

ROLL 

170 

UNENUM  =UNENUM-t-2 

ROLL 

171 

XMU  =ZERO 

Roa 

172 

WRrrE(LUOUT.1001)  ALPHA,VKCAS,ROLLMU 

ROLL 

173 

1001 

FORMATf*”  RUN-TIME  ERROR.  UFT  GREATER  THAN’ 

ROLL 

174 

& 

'  WEIGHT  DURING  AEROBRAKING.'y, 

ROLL 

175 

& 

'  ALPHA  =  ‘.FB.a,’  CAS  =’.F7.1.’  KNOTS 

ROU 

176 

& 

COEFFTCIENT  OF  FRICTION  =  ',F6.3) 

ROU 

177 

ELSE 

ROU 

178 

UFTOFF  =  . FALSE. 

ROU 

179 

XMU  =ROLLMU 

ROU 

180 

BOF 

ROU 

181 

ENDIF 

ROU 

182 

• 

B<«0 
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TIMERa  =  FLOATfTIME)  -  TIMEFLD 

ROLL 

183 

IF(.NOT.(BRKFlAG)AND. 

ROLL 

184 

& 

(VKCASIT.VKBRAKE  .AND.  T1MER0LGE.TIMEBRK))  THEN 

ROLL 

185 

c**** 

BRAKE  APPUCATION 

ROLL 

186 

BRKRAG  =  .TRUE. 

ROLL 

187 

BRKENGY  =  0.5*(GWT/G)*VrAS“2 

ROU. 

188 

XMU  =  BRAKMU 

ROLL 

189 

UNENUM  =UNENUM  +  1 

ROLL 

190 

WRITE(LUOUT,1002)  TIME,GDIST,BRAKMU.VKCAS,VKTAS 

ROLL 

191 

1002 

FORMAT(  ■  BRAKE  APPUCATION  {TIME  =  •.F6.2, 

ROLL 

192 

& 

•  DIST  =  ’,F8.i;  BRAKING  coefficients', 

ROLL 

193 

& 

F6.3,'  CAS  =  ',F7.1.' KNOTS  TAS  =  '. 

ROLL 

194 

& 

R.1. ■KNOTS)’) 

ROLL 

195 

ENOIF 

ROLL 

196 

IF(RTOFLAG)THEN 

ROLL 

197 

c**** 

FAILED  ENGINE  TRANSIENT 

ROLL 

198 

IF  (DTFAILEQ2ERO  AND.  (.NOT.SPOOLF))  THEN 

ROLL 

199 

CAU.SPOOLDNF(TIME,FENGEND,FENGTRN.SPOOLF,)(ENGF.LUMSG) 

ROLL 

200 

c**** 

ROLL 

201 

c**** 

SUM  ENGINE  MULTIPUCATWE  FACTORS. 

ROLL 

202 

XENGsXENGF-t-XENGR 

ROLL 

203 

ELSEIF  (DTFAILNE2ERO  .AND.  (.NOT.SPOOLF))  THEN 

ROLL 

204 

XENGF  =  FENGTRN  -  (FENGTRN  -  FENGEND)*TIMEROL/DTFAIL 

ROLL 

205 

c**** 

ROLL 

206 

SUM  ENGINE  MULTIPUCATWE  FACTORS. 

ROLL 

207 

XENGs  XENGF -(-XENGR 

ROLL 

208 

IF(XENGF.L£.FENGEND)  THEN 

ROIL 

209 

SPOOLFs.TRUE. 

ROLL 

210 

X^GF  sFENGEND 

ROLL 

211 

ENDIF 

ROLL 

212 

ENOIF 

ROLL 

213 

ELSE 

Roa 

214 

XENGF  =  ZERO 

ROLL 

215 

ENDIF 

ROLL 

216 

IF((NCOUNT.EQ.10.OR.STEADY)  .AND. 

ROLL 

217 

& 

(JDEBUG.EQ.6666.0R.JDEBUG.EQ.9999))  THEN 

ROLL 

218 

UNENUM  =  UNENUM +  2 

ROLL 

219 

WRITE(LUMSG,6666)  THROTTL,IDLFUG.SPOOLF,IDLE, 

ROLL 

220 

& 

xengfaengr,xeng 

ROU. 

221 

OQTO 

FORMATC  THROTTL.  IDLFIAG,  SPOOLF,  IDLE.  XENGF, XENGR, XENG  =', 

ROLL 

222 

& 

/,  2L8,  L7,  L5,  3F10.3) 

ROLL 

223 

ENDIF 

ROLL 

224 

Appendix  B 


Source  Code  Listing  B-61 


Q  O  O  Q  O  O 


IFfTHROTTL)THEN 

ROLL 

225 

IF  ((IDLFLAG).AND.TiMER0L.GE.T1MEIDL)  THEN 

ROLL 

226 

c**” 

RETARD  THROTTLE  TO  IDLE. 

Roa 

227 

IF(XENGFLD.NE.1.0  AND.  {.NOT.  SPOOLF))  THEN 

ROLL 

228 

C"** 

FOR  PART  POWER  ENGINE  FAILURES  MOVE  THE  REMAINING 

Roa 

229 

c**“ 

XENGF  COMPONENT  TO  XENGR  AND  RESET  XENGF  TO  ZERO. 

ROLL 

230 

SPOOLF  =  .TRUE. 

ROLL 

231 

XENGR  =  XENGF  +  XENGR 

ROLL 

232 

XENGF  =  ZERO 

ROLL 

233 

IF(DTFA1LNE.0.0)THEN 

ROLL 

234 

RENGTRN  =  XENGOUT 

ROLL 

235 

ELSE 

ROLL 

236 

RENGTRN  =  (RENGENDTIMEROL  -  XENGR*DTFAIL)/ 

ROLL 

237 

& 

(TIMEROL-DTFAIL) 

ROLL 

238 

ENDIF 

ROLL 

239 

ENDIF 

ROLL 

240 

IF  (DTFAILEQ.ZERO  .AND.  (.NOT.  IDLE))  THEN 

ROLL 

241 

CALL  SPOOLDNR(TIME,RENGEND, RENGTRN, IDLE, XENGP) 

ROLL 

242 

& 

LUMSG) 

ROLL 

243 

ROLL 

244 

C«** 

SUM  ENGINE  MULTIPUCATIVE  FACTORS. 

ROLL 

245 

XENG  =  XENGF  +  XENGR 

ROLL 

246 

ELSEIF  (DTFAILNE2ERO  .AND.  (.NOT.IDLE))  THEN 

ROLL 

247 

XENGR  =  RENGTRN  -  (RENGl  RN  •  RENGEND)* 

ROLL 

248 

& 

TIMEROITDTFAIL 

ROLL 

249 

IF(XENGR.LE.RENGEND)  THEN 

ROLL 

250 

IDLE  =  .TRUE. 

ROLL 

251 

XENGR  = RENGEND 

ROLL 

252 

ENDIF 

ROLL 

253 

ROLL 

254 

C«*. 

SUM  ENGINE  MULOPUCATIVE  FACTORS. 

ROLL 

255 

XENG  =  XENGF  +  XENGR 

ROLL 

256 

ELSE 

ROLL 

257 

IDLFLAG  =  . FALSE. 

ROLL 

258 

ENGGRP  =  ’AEI’ 

ROLL 

259 

IF  ((.NOT.REVFUG)  .AND.  (.NOT.RTOFLAG))  THEN 

ROLL 

260 

XENG  =  aOAT(NENG) 

ROLL 

261 

ELSEIF(.NOT.REVFLAG)  THEN 

ROLL 

262 

IF(FAILST.EQ.’IDLE’)THEN 

ROLL 

263 

XENG  =  aOAT(NENG) 

ROLL 

264 

ELSE 

ROLL 

265 

XcNG  =  aOAT(NENG  -  INT(XENGFLD)) 

ROLL 

i  00 

ENDIF 

Roa 

267 

ENDIF 

ROLL 

268 

ENDIF 

ROLL 

269 
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ELSEIF((REVFLAG) .  AND.  TIMEROL  .GE.TIMEREV)THEN 

ROLL 

270 

C'*** 

ADVANCE  THROTTLE  FOR  REVERSE  THRUST. 

ROLL 

271 

IF(.NOT.  REVRSE)THEN 

ROLL 

272 

IF(.NOT.  RTOFUG)  ENGGRP  =  'AER’ 

ROLL 

273 

CALL  SPOOLUP(REVNDX, TIME, 0.0, XENGTRN,REVHSE,XENGR) 

ROLL 

274 

c**** 

ROLL 

275 

c**“ 

SUM  ENGINE  MULTIPUCATIVE  FACTORS. 

ROLL 

276 

XENG  =  XENGF  +  XENGR 

ROLL 

277 

ELSE 

ROLL 

278 

REVFLAG  =  . FALSE. 

ROLL 

279 

ENDIF 

ROLL 

280 

ELSEIF((.NOT.IDLFUG)  .AND.  (.NOT.REVFUG))  THEN 

ROLL 

281 

THROnL  =  . FALSE. 

ROLL 

282 

ENDIF 

ROLL 

283 

ENDIF 

ROLL 

284 

ROLL 

285 

C”** 

OBTAIN  FORCE  COEFFICIENTS,  CX  AND  CY. 

ROLL 

286 

CALL  FORCEX(ALPHA,CD,CL; 

ROLL 

287 

c**" 

ROLL 

288 

MAKE  INTEGRATION  STEP. 

ROLL 

289 

CALLINTZ(NEQ,TIME,DTIME,T,DERIVGR,ALPHA) 

ROLL 

290 

CALL  INTG(  DIST,RKGRND(14),DTIME,0.0.VWIND,WFUEL, 

ROLL 

291 

DDIST,GDIST,GWT) 

ROl- 

292 

CALL  SPEED(0.0,VTAS,VWIND,A>/ACH,QS,VKCAS,VKEAS,VK:  tS.VKTGS, 

ROLL 

293 

VTGS) 

ROLL 

294 

ACLSUM  =ACLSUM  + ACCEL 

ROLL 

295 

BRKENGY=BRKENGY 

ROLL 

296 

& 

+  (THRUST  -  CD'QS  -  GWrROLLMU*COS(GRW))‘OD!ST 

ROLL 

297 

IF(INIRKJ)THEN 

ROLL 

298 

C”** 

A  SHORT  TIME  INCREMENT  IN  THIS  CALL  TO  ROLL  WAS  NEEDED 

ROLL 

299 

TO  BRING  THE  ELAPSED  TIME  TO  AN  EVEN  MULTIPLE  OF  DELTA 

ROLL 

300 

c**** 

TIME  FOR  THIS  INTEGRATION  STEP  ONLY;  RESET  DTIME  TO  THE 

ROLL 

301 

c**** 

ORIGINAL  VALUE,  DTIMEJ.  SET  DTIMEJ  TO  ZERO  SO  THE 

ROLL 

302 

C”” 

FLAGS  INIRKI  AND  INIRKJ  WILL  BE  RESET  TO  PROPER  VALUES. 

ROLL 

303 

INIRKI  =  .FALSE. 

ROLL 

304 

DTIME  =  DTIMEJ 

ROLL 

305 

DTIMEJ  =DBLE(ZEPO) 

ROLL 

306 

ENDIF 

ROLL 

307 
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IF  (nMEROLGT.90.0)  THEN 

ROLL 

308 

LIMIT  ON  GROUND  ROLL  OF  SIXTY  SECONDt,. 

ROLL 

309  A 

WRITE(LUOUT.1003)  BRAKMU.BRKFCTR.IMU 

ROLL 

310  W 

1003 

FORMATC  •**  FAILED  IN  SUBROUTINE  ROLL.V, 

ROLL 

311 

& 

'BRAKMU='.F6.3/  BRKFCTR  =',F6.3,‘  IMU=', 

ROLL 

312 

& 

13) 

ROLL 

313 

1 

RETURN 

ROLL 

OIH 

1 

ELSEIF(VKTGS.LT.1.0)  THEN 

ROLL 

315 

h  C“** 

WITH  GROUND  SPEED  LESS  THAN  1.0  FPS,  ASSUME  GROUND  ROLL 

ROLL 

316 

r  C'*** 

ENDS  AT  THE  CURRENT  DIST/W4CE  BUT  AN  ADDITIONAL  0.2 

ROLL 

317 

i  C**** 

SECONDS.  WRITE  FINAL  OUTPUT. 

ROLL 

318 

TIME  =  TIME +  0.2D0 

ROLL 

319 

IF(DTIME.GE.0.10D0)  THEN 

ROLL 

320 

WR1TE{LUOUT.1006)TIME.GDIST,GV/T, ZERO, ZERO.ZERO, ZERO, 

ROLL 

321 

& 

ACCEL,CL,CD,ZERO,ALPHA,ZERO,ZERO, 

ROLL 

322 

& 

ZERO,XLF,THRUST,XMU 

ROLL 

323 

ELSE 

ROLL 

324 

WR1TE(LUOUT,1007)TIME.GDIST,GWT,ZERO,ZERO,ZERO,ZERO, 

ROLL 

325 

& 

ACCEl,CUCD,ZEPO  Ai  phA,ZERO,ZERO, 

ROLL 

326 

& 

ZERO,XLF,THRUST,XMU 

ROLL 

327 

ENDIF 

ROLL 

328 

c«« 

ROLL 

329 

C**M 

CALCULATE  AVERAGE  DECELERATIONS  ABAR  AND  ABARG  FOR 

ROLL 

330 

c**** 

RUNGE-KUTTA  INTEGRATION  OF  GROUND  ROLL. 

ROLL 

331 

ABAR  =-ACLSUM/FLOAT{TlME/DTIME) 

ROLL 

332 

ABARG  »ABAR/G 

ROLL 

333 

WRITE(LUOUT,1 004)  BRAKMU,BRKFCTR,IMU,BRKENGY 

ROLL 

334  ^ 

1004 

FORMAT!’ BRAKMU=’,F6.3.'  BRKFCTR  =‘,F6.3,’  IMU=', 

ROLL 

335  9 

& 

13,'  BRAKE  ENERGY  =’,1  PE12.5E2,’  FOOT-POUNDS’) 

ROLL 

336 

RETURN 

ROLL 

337 

ELSEIF(NCOUNT.EQ.10)  THEN 

ROLL 

338 

c**** 

CALCULATE  ADDITIONAL  OUTPUT  PARAMETERS. 

ROLL 

339 

THETAF  =  ALPHA 

ROLL 

340 

IF(UNENUM.GE.NPAGE)  THEN 

ROLL 

341 

c**** 

RESET  LINE  NUMBER  COUNTER  LINENUM  AND  WRITE  HEADER 

ROLL 

342 

C««. 

FOR  NEW  PAGE. 

ROLL 

343 

UNENUM  =  4 

ROLL 

344 

WRITE(LUOUT,1005) 

ROLL 

345 

ENDIF 

ROLL 

346 

ENDIF 

ROLL 

347 

ENDIF 

ROLL 

348 

10  CONTINUE 

ROLL 

349 

• 
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Q**** 

C****  WRITE  OUTPUT  AND  INCREMENT  UNE  NUMBER  COUNTER  UNENUM. 
IF(DTIME.GE.0.10DO)THEN 

WRITE(LUOUT.1006)TIME.GDIST,GWT.ZERO.VKCAS,VKTAS,VKTGS, ACCEL, 
&  CL,CD.THETAF.ALPHA7ER0,DADT,ZER0.XLF, THRUST, 

&  XMU 

ELSE 

WRrrE{LUOUT,1007)TIME,GDIST,GWr,ZERO,VKCAS,VKTAS,VKTGS,ACCEL, 
4  CL,CD,THETAF,ALPHA,2ERO,DADT,ZERO,XLF,THRUST, 

4  XMU 

ENDIF 

UNENUM  =  UNENUM +1 

(T”  RESET  INTEGRATION  LOOP  COUNTER  ICOUNT  T0 1  AND  RESTART 
C****  THE  GROUND  ROLL  INTEGRATION  LOOP. 

ICOUNT  =1 
GOT0 19 

1005  FORMAT(1t  GROUND  ROa  CONTINUED7. 

4  •  TIME  DIST.  WEIGHT  ALT.  VCAS  VTAS  VTGS’, 

4  •  ACCEL  CL  CD  THETA  ALPHA  GAMMA  DTHET 

4  '  R/C  LOAD  THRUST  XENGV, 

4  '(SEC)  (FEET)  (LBS)  (FEEll  (KTS)  (KTS)  (KTS)', 

4  •(FPS2)  (DEG)  (DEG)  PEG)  IDT, 

4  ‘(FPM)  FACT  (LBS)  OR  MU',/) 

1006  FORMAT(  F6,1,F8.0,F9.0,F8.1,3R.1,F7.2,F8.4,F7.4,4F7.2,F8.1,F6.2, 

4  F9.0,F7.3) 

1007  FORMAT(  F6.2,F8.0,F9.0,F8.1,3F7.1,F7.2,F8.4,R.4,4R.2,F8.1,F6.2, 

4  F9.0,R.3) 

END 


ROLL 
ROLL 
Roa 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
Roa 
ROLL 
Roa 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL 
ROLL  373 
ROLL  374 
ROLL  375 
ROLL  376 
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Subroutine  INTX 


SUBROUTINE  INTX(NEQ,TIME,DTIME,T.DERIV.ALPHA) 

INTX 

1 

THIS  SUBROUTINE  PERFORMS  NUMERICAL  INTEGRATION  USING  A  FOURTH 

INTX 

2 

c**“ 

ORDER  RUNGE-KUTTA  SCHEME  WITH  THE  ADAMS-BASHFORTH-MOULTON 

INTX 

3 

PREDICTOR^RRECTOR  METHOD. 

INTX 

4 

C"** 

INTX 

5 

Cr**  REFERENCE:  MORRIS.  JOHN  LL 

INTX 

6 

C“** 

COMPUTATIONAL  METHODS  IN  ELEMENTARY  NUMERICAL  ANALYSIS 

INTX 

7 

C**” 

COPYRIGHT  1983  BY  JOHN  WILEY  AND  SONS  LTD. 

INTX 

8 

c**** 

UBRARY  OF  CONGRESS  CATALOG  QA297.M647  519.4 

INTX 

9 

C**“ 

ISBN  0471  104191 

INTX 

10 

c— 

PP  388-97 

INTX 

11 

INTX 

12 

DOUBLE  PRECISION  DTIME.DTIME24.HK.HK2.HK4.RKUnA(4).T(1),TIME 

INTX 

13 

INTEGER  N(11) 

INTX 

14 

D0 10 1=2,11 

INTX 

15 

10 

N(I)  =  NEQ*I 

INTX 

16 

NCOUNT  =  N(6) 

INTX 

17 

DTIME24  =  DTIME/24.0D0 

INTX 

18 

CALLDERIV(ALPHA) 

INTX 

19 

0020I=1,N(2) 

INTX 

20 

20 

T(I+N(4))  =  T(I) 

INTX 

21 

RETURN 

INTX 

22 

ENTRY  INT2(NEQ,TIME,DTIME,T.DERIVJUJ>HA) 

INTZ 

1 

IF(NCOUNT.LE.N(10I)THEN 

INTZ 

2 

RKUTTA(1)  =  RKUTTA(2)  =  TIME  4  DTlMe0.5D0 

INTZ 

3 

RKUTTA(3)  =  RKUTTA(4)  =  TIME  4  DTIME 

INTZ 

4 

DO40J=1,4 

INTZ 

5 

TIME  =  RKUnA(J) 

INT7 

6 

OO30l=1,NEQ 

INTZ 

7 

HK2=0TIME*T{l4NEQ) 

INTZ 

8 

HK  =0.5D0*HK2 

INTZ 

9 

HK4=2.000*HK2 

INTZ 

10 

IF  (J.EQ.1)THEN 

INTZ 

11 

T(l4N(2))  =T(I) 

INTZ 

12 

T{l4N(3))  =HK2 

INTZ 

13 

T(l)  =T(l4N(2))4HK 

INTZ 

14 

ELSEIF(J.EQ.2)THEN 

INTZ 

15 

T(l)  =T(l4N(2))4HK 

INTZ 

16 

T(l4N(3))  =T(l4N(3))4HK4 

INTZ 

17 

ELSEIF(J.EQ.3)THEN 

INTZ 

18 

T(l)  =T(l4N(2))4HK2 

INTZ 

19 

T(l4N(3))  =T{I4N(3))4HK4 

INTZ 

20 

ELSEIF{J.EQ.4)THEN 

INTZ 

21 

T(l)  =T(l4N(2))4(T(l4N(3))4HK2)/6.0D0 

INTZ 

22 

ENDIF 

INTZ 

23 

30 

CONTINUE 

INTZ 

24 

CALLDERIV(ALPHA) 

INTZ 

25 

40 

CONTINUE 

INTZ 

26 

D050I=1,N(2) 

INTZ 

27 

50 

T(l4NC0UNT)  =  T(l) 

INTZ 

28 

NC0UNT  =  NC0UNT4N(2) 

INTZ 

29 
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ELSE 

INTZ 

30 

0060M,NEQ 

INTZ 

31 

T(l+N(3))  =  19.0DO*T(I+N(11))  -  5.0DO*T(I+N(9))  +  T(l+N(7)) 

INTZ 

32 

60 

T(l)  =  T(l+N(10))  +  DTIME24*(55.0DOT(I+N(1 1)) 

INTZ 

33 

& 

•  59.0D0T(I+N(9))  +  37.0D0*T(I+N(7)) 

INTZ 

34 

& 

-  9.000*T(I+N(5))) 

INTZ 

35 

TIME  =  TIME +  DTIME 

INTZ 

36 

CALLOERIV(ALPHA) 

INTZ 

37 

DOTOM.NEQ 

INTZ 

38 

T(l+N(2))  =T(I) 

INTZ 

39 

70 

T(l)  =T(I+N(10)) 

INTZ 

40 

& 

+  DTIME24*(9.0DO*T(I+NEQ)  +  T{l+N(3))) 

INTZ 

41 

CALLDERIV(ALPHA) 

INH 

42 

0080I«1,N(6) 

INTZ 

43 

80 

T(4N(4))  =  T(I+N(6)) 

INTZ 

44 

[)O90lx1,N(2) 

INTZ 

45 

90 

T(I+N(10))  =  T(I) 

INTZ 

46 

ENDIF 

INTZ 

47 

RETURN 

INTZ 

46 

END 

INTZ 

49 
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Subroutiiie  INTG 


SUBROUTINE  I^^^G(DIST,DISTJ,DTIME,GAMMAR,VWIND,WFUEL,DDIST,GDIST,GV\rT) 
Cr**  THIS  SUBROUTINE  CALCULATES  INCREMENTAL  GROUND  DISTANCE,  DDIST; 

C**“  TOTAL  GROUND  DISTANCE.  QDIST;  AND  GROSS  WEIGHT.  GWT,  USING  RNITE 
C**~  DIFFERENCE  INTEGRATION  EQUATIONS. 

QM** 

DOUBLE  PRECISION  DHME 

DDIST  =  pST  -  DISTJ)*COS(GAMMAR)  -  VWINO*FLOAT(DTIME) 

GDIST  =  GDIST-i-DDIST 

GWT  =GWr-(WFUEL/3600.)*FLOAT(DTIME) 

RETURN 

END 


INTG 

INTG 

INTG 

INTG 

INTG 

INTG 

INTG 

INTG 

INTG 

INTG 

INTG 


8 

9 

10 

11 
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Subroutme  DERIVGR 


SUBROUTINE  DERiVGR(ALPHA) 

C**~  THIS  SUBROUTINE  DERIVGR  CALCULATES  THE  ACCELERATION.  ACCEL,  FOR 
C**“  THE  GROUND  ROLL  OF  A  TAKEOFF,  LANDING  OR  REFUSED  TAKEOFF. 

Q*M* 

DOUBLEPREaSION  DTIME.DTIlylEJ.TIME 
PARAMETER  (LUINa3,LUOUT»4) 

COMMON/CTRL/  DTIME,DTIMEJ,ICOUNT,JOEBUG,KBIG,UNENUM,LUMSG.NCOUNT, 
&  NEQ.NPAGE.TIME,TIMEROL 

COMMON/AIRCRFT/  AOA3PTAR.B.CGPCT.CLALPH.CONFIG.DTDTMX.FLT,GWT,HZ, 

&  LOADING,SWING,THTMAX,WNGLOD,XLFMAX 

COMMON/AERO/  CXCY.DADTCM0,DCDXDCLX,DTDT6EX,FLAP.FLPPCT,QS. 

&  SPDBRK,SPOILER,VKCAS.VKTAS 

COMMON/AIRSPED/  VKABRK.VKAPP.VKBRAKE.VKEND,VKFAIUVKFLAP,VKFLPMX. 

&  VKMCG,VKROTAT.VKSTART.VKWIND,VWIND 

COMMON/RUNWAY/  ABARGAOAABRK.BRAKMU,BRKFCTR,GAMMARW,GRW,HAGL, 

&  HCLEAR,HFLARE,HGEAR,HRUNWAY,IMU,RCR,ROLiMU,TIMEFLO, 

&  TIMEBRK,TIMEFLP.TIMESBK.TIMESPUXMU 

DOUBLEPREaSION  VTAS.DISTACCEL,VrASJ,RKGRND 
COMMON/INTEG/  VTAS,DISTACCEL,VrASJ,RKGRND(20) 

PARAMETER  (ASL;>661 .48,FPSKTS=1 .687806,G«  32.174, 

&  RX^.29577951308,TSLF=S9.0,ZERO=0.0) 

COMMON/CONST/  ASLSQR5,TWOOVR7 

LOGICAL  AOAOFLG.BRKFUG.ClflHGT.ERRFLAG,FAILFLG.FLAPFLG.FPCTRG, 

&  GEFUG.LGRFLAG.UnOFF,OVERaG,REVFLAG.REVRSE,ROTATE, 

&  RT0FUG.SBKFUG.SPLFLAG,SP00l,STEADY,TERMaG,VECTR6. 

&  VFFLAG.WRrTITR 

COMMON/FLAGS/  AOAOFLG,BRKFLAG,CLflHGT,ERRFUG,FAILFLG,FLAPFLG, 

&  FPCTFLG,GEFLAG.LGRFUG.UFTOFF.OVERFLG,REVFLAG, 

&  REVRSE,ROTATE,RTOFLAG,SBKFLAG,SPLFLAG.SPOOL,STEADY, 

&  TERMFLG.VECTFLG.VFFlAG,WRmTR 

REALLODMAIN,LOONOSE 
DATA  ITER/9/ 

QMM 

C**"  OBTAIN  FORCE  COEFFiaENTS  CX  AND  CY. 

CALL  FORCEX(ALPHACD,a) 
lf=(BRKFlAG  AND.  IMU.NE0)  THEN 
TIMEB  «  TIMEFLD TIMEBRK 
IF;FLOAT(TIME).GE'nMEB)  THEN 
VKTGS  =  (VTAS  -  VWIND)/FPSKTS 


C**** 

c**** 


CALCULATE  WEIGHT  MINUS  UFT. 

WTML  =  G WrCOS(GRW)  -  Cr OS 

CALL  GENMU(VKTGS,WTMU(MAIN,XNOSEYCG) 


DERIVGR  1 

DERIVGR  2 

DERIVGR  3 

DERIVGR  4 

CTRL  1 

CTRL  2 

CTRL  3 

CTRL  4 

AIRCRFT  1 

AIRCRFT  2 

AERO  1 

AERO  2 

AIRSPED  1 

AIRSPED  2 

RUNWAY  1 

RUNWAY  2 

RUNWAY  3 

INTEG  1 

INTEG  2 

CONST  1 

CONST  2 

CONST  3 

FUGS  1 

FLAGS  2 

FLAGS  3 

FUGS  4 

FUGS  5 

FUGS  6 

FLAGS  7 

FLAGS  8 

DERIVGR  13 

DERIVGR  14 

DERIVGR  IS 

DERIVGR  16 

DERIVGR  17 

DERIVGR  18 

DERIVGR  19 

DERIVGR  20 

DERIVGR  21 

DERIVGR  22 

DERIVGR  23 

DERIVGR  24 

DERIVGR  25 


Appendix  B 


Source  Code  Listing  B^9 


D0 10  M, ITER 

LODMAIN  ={(GWr(ACCElAj  +  SIN(GRW))  +  CX*QS)*YCG 
&  •t-WTML*XNOSEy(XMAIN-fXNOSE) 

LOONOSE  =WTML- LODMAIN 
FEX  =-{GWrSIN(GRW)  +  CX*QS 
&  -t-BRAKMUTODMAlN-ROLLMUTODNOSE) 

ACCEL  =FEX*(G/GWT) 
ir(ABo\ACCcL*ACGEiJ).GE.0.01)  THEN 
ACCEU  =Acca 
ELSE 

VTASJ  =VTAS 
RETURN 
ENDIF 

10  CONTINUE 

WRITE(LUOUT,1001)  ACCEUACCEU, LODMAIN, LODNOSE 
1001  FORMATf  ***  UNABLE  TO  CONVERGE  ON  SOLUTION  FOR  EQUATION', 

&  'OF  MOTION  WITH  NOSE  AND  MAIN  GEAR  FORCES', 

&  'RESaVED.  ACCEL,ACCEU,LOOMAIN,LOONOSE=', 

&  2Fl0i,2F10.0,'  "*■) 

RETURN 

ENDIF 

ENDIF 

(T**  CALCUUTE  GROUND  ROLL  ACCELERATION  (FT/SEC**2).  ACCEL 
FEX  =  -{GWr(SIN(GRW)  +  XMU*COS(GRW))  +  QS*(CY*XMU-CX)) 

ACCEL  =FEX*(GVGWT) 

VTASJ  =VTAS 

RETURN 

END 
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Subroutine  DERIVAT 


SUBROUTINE  DERIVAT(ALPHA) 

DERIVAT 

1 

cr-  THIS  subr(x;tine  caljcuutes  the  time  derivatives  for  the  airborne 

DERIVAT 

2 

C**“  PORTION  OF  THE  TAKEOFF  AND  MANAGES  THE  FUGHTPATH  CONTROL 

DERIVAT 

3 

DERIVAT 

4 

COMMON/AIRCRFT/  ACA2PT,*®,B.CSPCT.CL‘iP“  CONPG  nTr)T»«y.RTe'AT,HZ, 

AinjRFT 

1 

& 

LOADING, SWING, THTMAX.W^K3L0D;(LFMAX 

AIRCRFT 

2 

COMMON/AERO/  CX,CY,DADTCMD,DCOX,DCLX,DTDTGEX,FlAP,FLPPCT.QS, 

AERO 

1 

& 

SPD6RK,SPOILER,VKCAS,VKTAS 

AERO 

2 

COMMON/AIRBORN/  AIJmiALPHMX,DTDT,GAMMAPP,ROCFPM,THETAF,XLF,XLFJ 

AIRBORN 

1 

DOUBLEPRECISION  FPVTAS,GAMMAR,FPOIST,PRESALT,FPACCELOGDTR,VHAS, 

FPINTEG 

1 

& 

ROC,RKAIR 

FPINTEG 

2 

COMMONmiTEG/  FPVrAS,GAMMAR,FPDIST,PRESALT,FPACCELDGOTaVHAS, 

FPINTEG 

3 

& 

ROC,RKAIR(40) 

FPINTEG 

4 

PARAMETER  (ASU661 .48,FPSICrS=1 .667806,G=  32.1 74, 

CONST 

1 

& 

RXs57.29577951306,TSLF^.0,ZERO=0.0) 

CONST 

2 

COMMONAXMST/  ASLSQRS,TWOOVR7 

CONST 

3 

LOGICAL  AOAOFLG,BRKFLAG,CLRHGT,ERRFLAG,FAlLFLG,FLAPaG.FPCTFLG, 

FUGS 

1 

& 

GEFLAG,LGRFLAG,UFTOFF,OVERFLG,REVFUG,REVRSE,ROTATE, 

FUGS 

2 

& 

RTOFlAG,SBKFLAG,SPLRAG,SPOOLSTEADY,TERMFLG,VECTFLG, 

FUGS 

3 

& 

VFFlAG,WRmTR 

FUGS 

4 

COMMON/FLAGS/  AOAOFLG,BRKFLAG,CLRHGT,ERRFUG,FAILaG,FLAPFLG, 

FUGS 

5 

& 

FPCTFLG,GEFlAG,LGRFLAGJJFTOFF,OVERFLG,REVFUG, 

FUGS 

6 

& 

REVRSE,ROTATE,RTOFLAG,SBKFLAG,SPLFLAG,SPOOLSTEADY, 

FLAGS 

7 

& 

TERMFLG,VECTaG,VFFLAG,WRfnTR 

FLAGS 

8 

DATA0ALPHA0.0S/ 

DERIVAT 

13 

ALPHMX  -THTMAX 

DERIVAT 

14 

ITER  rlNT((ALPHMX-(-2.oyDALPHA) 

DBWAT 

15 

DO20M,ITER 

DERIVAT 

16 

C*"* 

DERIVAT 

17 

QMM 

OBTAIN  FORCE  COEFFIGENTS  CX  AND  CY. 

DBWAT 

18 

CALL  FORCEX(ALPH^CD,a) 

DB^IVAT 

19 

C"** 

DERIVAT 

20 

CALCULATE  LOAD  FACTOR. 

DERIVAT 

21 

XLF  .  {QsrcriiQim + (i.o  -  cos(Gammar)} 

DERIVAT 

22 

C"** 

DERIVAT 

23 

C**'* 

CHECK  FUSELAGE  ANGLE.  IF  THE  FUSELAGE  ANGLE  IS  GREATER  THAN 

DERIVAT 

24 

QMM 

THE  MAXIMUM  FUSELAGE  ANGLE,  REDUCE  ANGLE  OF  AHACK. 

DERIVAT 

25 

THETAF-  ALPHA •►GAMMAR*RX 

DERIVAT 

26 
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IF(THETAF.GT.THTlylAX)  THEN 

ALPHA  «  THTMAX  •  GAMMAfTRX 

ELSE 

C**“  CHECK  FUGHTPATH  ACCELERATION.  IF  THE  ACCELERATION  IS 

(r**  LESS  THAN  ZERO,  REDUCE  ANGLE  OF  ATTACK 

FPACCEL  s  (G/GWT)*(-CX*QS  -  G^SIN(GAMMAR)) 
IF(FPACCELLT2ER0)  THEN 
ALPHAS  ALPHA -DALPHA 
IF(CLLT.0.0000)THEN 

WRrrE(LUOUT.1001)  FPACCEUTHTMAX 
1001  FORMATf  ***  UNABLE  TO  MAWITAIN  FUGHTPATH*, 

&  'ACCELERATION  GREATER  THAN  OR  EQUAL  TG, 

&  '  ZERO.  FPACCEUTHTMAX  =',F10.3,F10.1.*  *”*) 

ERRFLAGs  TRUE 
RETURN 
ENDIF 

ELSE 

C****  CALCULATE  DGAMMA«)T.  HORIZONTAL  SPEED  AND  RATE  OF 

Cr**  CLIMB,  DGDTRVHAS  AND  ROC. 

DGDTR  .  (G/(GWrFPVTAS))*{CrQS  -  GWrCOS(GAMMAR)) 
VHAS  s  FPVTAS*COS(GAMMAR) 

ROC  s  FPVTAS*SIN(GAMMAR) 

RETURN 

ENDIF 

ENDIF 

20COfniNUE 

END 


DERIVAT  27 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DB1IVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DERIVAT 
DBWAT 
DERIVAT 
DERIVAT 
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ll  IL  ILL 


Subroadne  DERIVAL 


SUBROUTINE  DERIVAL(ALPHA) 

(T**  ms  SUBROUTINE  CALCULATES  THE  TIME  DERIVATIVES  FOR  THE  AIRBORNE 
C****  PORTION  OF  THE  LANDING  AND  MANAGES  THE  FUGHTPATH  CONTROL 


OOUBLEPRECISION  DTIME,DTIMEJ,TIME 
PARAMETER  (LUIN^XUOUTs4) 

COMMON/CTRty  DTIME,DTIMEJ,ICOUNT4)EBUG,KENG,LINENUM,LUMSG,NCOUNT, 
&  NEQ,NPAGE.TIME.TIMERa 

COMMON/AIRCRFT/  AOA3PT^,B.CGPCT,CLALPH.CONFIG.DTDTMX.FLT,GWT,HZ, 

&  LOAOING.SWING,THTMAX.WNGLOO;(LFMAX 

COMMON/AERO/  CX.CY4)ADTCMO,DCOX,DCLX.DTDTGEX.FlAP,FLPPCT,QS, 

&  SPOBRK.SPOILER,VKCAS,VKTAS 

COMMON^AIRBORN/  alphaj>vlphmxxitdt,gammapp,rocfpm,thetaf;(lf;(lfj 

DOUBLEPRECISiON  FPVrAS,GAMMAR,FPDiST, PRESALT, FPACCELDGDTR.VHAS, 

&  ROC,RKAIR 

COMMON/FPINTEG/  FPVTAS,GAMMAR.FPOiST, PRESALT, FPACCELDGDTR.VHAS, 

&  ROC,RKAIR(40) 

PARAMETER  (ASL;461.48,FPSKTSs1.687806,G»  32.174, 

&  RXa57.29577951308.TSLF=59.0,ZEROs0.0) 

COMMON/CONST/  ASLSQRS.TWOOVR7 

LOGICAL  AOAOFLG.BRKFLAG,CLRHGTJERRFIAG,FAILFLG.FLAPFLG,FPCTFLG, 

&  GEFlAG,LGRFlAG.UFTOFF.OVERFLG,REVFUG.REVRSE, ROTATE. 

&  RTOFLAG.SBKFlAG,SPLFLAG.SPOOLSTEADY.TERMFLG,VECTaG. 

i  VFFLAG,WRrnTR 

COUmmAGSl  AOAOFLG3RKFUG,CLRHGT,ERRFLAG,FAILR6,FLAPaG, 

&  FPCm.G.GEFlAG,LGRFLAG.UFTOFF,OVERaG,REVFUG, 

&  REVRSE.ROTATE.FrrOFLAG,SBKFUG,SPLFLAG.SPOOLSTEADY, 

&  TERMaG,VECTaG,VFFLAG,WRmTR 

OATAOALPHA/O.OS/ 

ITER  B  INT(^0*ALPHMX/DALPHA) 

DO  30  M, ITER 


UMTT  ALPHA  TO  ALPHMX 
IF(ALPHAQTALPHMX)  ALPHA  »  ALPHMX 

OBTAIN  FORCE  COEFITCIENTS  CX  AND  CY. 
CALL  FORCEX(ALPHA,CD,a) 


1002 

& 


CHECK  LOAD  FACTOR  IF  LOAD  FACTOR  IS  GREATER  THAN  THE 
MAXIMUM  LOAD  FACTOR,  REDUCE  ANGLE  OF  ATTACK 
XLF  >  (QS*CY)/GWr  (1.0  •  C08(GAMMAR)) 

IF(XLF.GTJ(LFMAX)THBI 
ALPHA.  ALPHA -DALPHA 
IF(ALPHA.LT.-AIPHMX)  THEN 
B)RFLAG..TRUE. 

WRITE(LUOUT,1002) 

FORMATf"*  ERROR  IN  DERIVAL  ALPHA  IS  LESS  THAN', 

’ -ALPHMX  AND  XLF  IS  GREATER  THAN  XLFMAX.  **-) 

RETURN 

ENDIF 


DERIVAL 

1 

DERIVAL 

2 

DERIVAL 

3 

DERIVAL 

4 

CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

AIRCRFT 

1 

AIRCRFT 

2 

AERO 

1 

AERO 

2 

AIRBORN 

1 

FPINTEG 

1 

FPINTEG 

2 

FPINTEG 

3 

FPINTEG 

4 

CONST 

1 

CONST 

2 

CONST 

3 

FLAGS 

1 

FLAGS 

2 

FUGS 

3 

FUGS 

4 

FUGS 

5 

FUGS 

6 

FUGS 

7 

FUGS 

8 

DERIVAL 

12 

DERIVAL 

13 

DERIVAL 

14 

DERIVAL 

15 

DERIVAL 

16 

DERIVAL 

17 

DERIVAL 

18 

DERIVAL 

19 

DERIVAL 

20 

DERIVAL 

21 

DERIVAL 

22 

DERIVAL 

23 

DERIVAL 

24 

DERIVAL 

25 

DERIVAL 

26 

DERIVAL 

27 

DERIVAL 

28 

DERIVAL 

29 

DERIVAL 

30 

DERIVAL 

31 

DERIVAL 

32 

DERIVAL 

33 
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DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL 
DERIVAL  61 
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CALCUUTE  TIME  RATE  OF  CHANGE  OF  FUGHTPATH  ANGLE  DGDTR  AND 
THE  PITCH  RATE  DTDT.  IF  DTHETA/DT  IS  GREATER  THAN  THE 
MAXIMUM,  DTDTMX,  REDUCE  ANGLE  OF  AHACK. 

DGDTR  ={G/(GWTTPVrAS))*(CY*QS-GWrCOS(GAMMAR)) 

DADT  =  (ALPHA  -  ALPHAJ)/aOAT(DTIME) 

DTDT  =DGDTR*RX  +  DADT 

IF(DTDT.GT.DTDTMX)  THEN 
ALPHA  =  ALPHA -DALPHA 
IF(ALPHA  LT. -ALPHMX)  THEN 
ERRFLAG  =  .TRUE. 

WRITE(LUOUT,1{)03) 

FORMATf  ERROR  IN  DERIVAL  ALPHA  IS  LESS  THAN', 

■  -ALPHMX  AND  DTDT  IS  GREATER  THAN  DTDTMX.', 

I  ***i^ 

RETURN 

ENDIF 


CALCULATE  ACCELERATION  ALONG  FUGHTPATH  AND  VELOCITY 
;•*“  COMPONENTS. 

FPACCEL  =  (G/GWT)*(-CX*QS  -  GWrSIN(GAMMAR)) 

VHAS  =  FPVTAS*COS(GAMMAR) 

ROC  =  FPVTAS*SIN(GAMMAR) 

RETURN 
ENDIF 
ENDIF 
30  CONTINUE 
END 


Ulll 


Subroutine  ERROR 


SUBROUTINE  ERROR(LUOUT,ROCFPM) 

THIS  SUBROUTINE  IS  CALLED  DURING  A  TAKEOFF  SIMULATION  WHEN  THE 
FUG  ERRFUG  IS  SET  TO  .TRUE.  PROGRAM  EXECUTION  IS  TERMINATED  FOR 
THE  PRESENT  SET  OF  NAMELIST  INPUTS  AND  WILL  CONTINUE  IF  ADDITIONAL 
NAMELIST  INPUTS  ARE  TO  BE  PROCESSED. 

IF(ROCFPM.LE.O.O)THEN 
WRrrE(LUOUT.1001) 

ELSE 

WRITE(LUOUT,1002) 

ENDIF 

1001  FORMAT(  /;  CANNOT  CLIMB  AT  USER  INPUT  CONDITIONS.'. 

&  /.'  *“  ABNORMAL  TERMINATION  OF  TAKOFF  “*) 

1002FORMAT(/,*  ABNORMAL  TERMINATION  OF  TAKOFF  ***0 
RETURN 
END 


ERROR  1 
ERROR  2 
ERROR  3 
ERROR  4 
ERROR  5 
ERROR  6 
ERROR  7 
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ERROR  9 
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Subroutine  HALT 


SUBROUTINE  HALT(LUIN,LUMSG,LUOUT,TERMMSG) 

HALT 

1 

C**"  THIS  SUBROUTINE  TERMINATES  PROGRAM  EXECUTION,  aOSES  THE  INPUT  AND 

HALT 

2 

C****  OUTPUT  RLES,  AND  WRITES  A  TERMINATION  MESSAGE,  TERMMSG. 

HALT 

3 

C“" 

HALT 

4 

CHARACTER*!*)  TERMMSG 

HALT 

5 

WRITE(LUOUT,1001)  TERMMSG 

HALT 

6 

1001FORMAT(/,A) 

HALT 

7 

CLOSE  (UNIT=LUIN) 

HALT 

8 

CLOSE  (UNIT=LUMSG) 

HALT 

9 

CLOSE  (UNIT4.UOUT) 

HALT 

10 

STOP  ■  TOLAND  NORMAL  TERMINATION' 

HALT 

11 

END 

HALT 

12 

B-76  Source  Code  Listing 


Appendix  B 


Subroutine  ATMOSPH 


SUBROUTINE  ATMOSPH(PRESALT, ARRAY) 

ATMOSPH 

1 

c**" 

THIS  SUBROUTINE  CALCULATES  PRESSURE,  TEMPERATURE,  DENSITY,  SPEED 

ATMOSPH 

2 

OF  SOUND,  KINEMATIC  VISCOSITY,  AND  PRESSURE,  TEMPERATURE  AND 

ATMOSPH 

3 

c*~* 

DENSITY  RATIOS.  THE  INPUTS  ARE  PRESSURE  ALTITUDE,  PRESALT,  AND 

ATMOSPH 

4 

c**“ 

THE  TEMPERATURE  INCREMENT  FROM  STANDARD  DAY.  DTEMPF. 

ATMOSPH 

r 

C“” 

ATMOSPH 

6 

C«« 

ARRAY(1 )  =  TEMPERATURE  (DEG  R)  ARRAY{6)  =  PRESSURE  RATIO 

ATMOSPH 

7 

c**“ 

ARRAY(2)  =  PRESSURE  (PSF)  ARRAY{7}  =  DENSITY  RATIO 

ATMOSPH 

8 

c**“ 

ARRAY(3)  =  DENSITY  (SLUG/FT3)  ARRAY{8)  =  TEMPERATURE  RATIO 

ATMOSPH 

9 

ATMOSPH 

10 

c**** 

ARRAY(4)  =  SPEED  OF  SOUND  (FEET/SECOND) 

ATMOSPH 

11 

c**" 

ARRAY(5)  =  KINEMATIC  VISCOSITY  (Fr*2/SEC) 

ATMOSPH 

12 

c**** 

ATMOSPH 

13 

COMMON/ATMOSnEMPR,PRESS.RHO>^S,VISCOSK, DELTA, SIGMA, THETA,DTEMPF 

ATMOS 

1 

REALARRAY(8) 

ATMOSPH 

15 

DATA  TSLR,PSLPSF.  RHOSL  ASLFPS,  ASLKTS,  CONST1 

ATMOSPH 

16 

& 

/  51 8.67,  211 6.22,  2.3769E-03,  1 1 1 6.47,  661 .48,0.270558E-06/ 

ATMOSPH 

1^ 

IF(PRESALT.LT.36089.0)  THEN 

ATMOSPH 

li 

FACTOR  =  1.0  -  6.8750E-06*PRESALT 

ATMOSPH 

29 

ARRAY(6)  =  DELTA  =  FACTOR**5.2559 

ATMOSPH 

ARRAY(8)  =  THETA  =  FACTOR  +  DTEMPF/518.67 

ATMOSPH 

2I 

ELSE 

ATMOSPH 

22 

AfiPAY(6)  *  DELTA  =  0.22336*EXP({36089.0-PRESALT)/20786.0) 

ATMOSPH 

2$ 

ARRAY(8)  =  THETA  =  0.75187  +  DTEMPF/518.67 

ATMOSPH 

24 

ENDIF 

ATMOSPH 

25 

ARRAY(7)  =  SIGMA  =  DaT/VTHETA 

AT-OSPH 

26 

ARRAY(1)*TEMPR  =THETATSLR 

.aTMOSPH 

27 

ARRAY(2)  =  PRESS  =  OaTA'PSLPSF 

ATMOSPH 

28 

ARRAY(3) «  RHO  =  SIGMA*RHOSL 

ATMOSPH 

29 

ARRAY(4)  =  AFPS  =  SQRT(THETA)*ASLFPS 

ATMOSPH 

30 

ARRAY{5)  =  VISCOSK  =  C0NST1*TEMPR**1.5/ 

ATMOSPH 

31 

& 

((PRESS/144.0)*(1.0  +  198.72/TEMPR)) 

ATMOSPH 

32 

RETURN 

ATMOSPH 

33 

END 

ATMOSPH 

34 

Q  O  O  O  O 


Subroutine  SPEED 


SUBROUTINE  SPEED(GAMMAR.VTASX,VWIND.AMACH.QS,VKCAS.VKEAS.VKTAS, 
VKTGS.VTGS) 

THIS  SUBROUTINE  IS  CALCULATES  DYNAMIC  PRESSURE,  MACH  NUMBER,  AND 
VELOCITIES. 


COMMON/AIRCRFT/  AOA3PT,AR,B,CGPCT,CLALPH,CONFIG,DTDTMX,aT,GWT,HZ, 

&  LOAOING,SWING,THTMAX,WNGLOD,XLFMAX 

COMMON/ATMOS/rEMPR,PRESS,RHO,AFPS,VlSCOSK,DELTA,SIGMA,THETA,DTEMPF 
PARAMETER  {ASL=661 .48,FPSKTS=1 .687806,G=  32.174, 

&  RX=57.29577951308,TSLF=59.0,ZERO=0.0) 

COMMON/CONST/  ASLSQR5,TWOOVR7 
VKTAS  =VTASX/FPSKTS 
VTGS  =  VTASX*COS(GAMMAR)  -  VWIND 
VKTGS  =VTGS/FPSKrS 
IF(VTASX.GT2ERO)THEN 
AMACH  =VTASX/AFPS 
OS  =0.5*RHO*VTASX"2*SWING 
VKEAS  =VKTAS*SQRT(SIGMA) 

VKCAS  =ASLSQR5*SQRT((DELTA* 

&  ({1 .0  +  0.2*AMACH**2)"3.5  - 1.0)  + 1 .0)“(TWOOVR7) 

&  -1.0) 

ELSE 

•**  IF  TRUE  AIRSPEED  IS  NEGATIVE,  RESET  THESE  PARAMETERS  TO 
“  ZERO;  THIS  CAN  OCCUR  IN  A  SIMUUTION  WITH  TAILWIND. 

AMACH  =  VKEAS  =  VKCAS  =  ZERO 
OS  =0.1 
ENDIF 
RETURN 
END 


SPEED 

1 

SPEED 

2 

SPEED 

3 

SPEED 

4 

SPEED 

5 

AIRCRFT 

1 

AIRCRFT 

2 

ATMOS 

1 

CONST 

1 

CONST 

2 

CONST 

3 

SPEED 

9 

SPEED 

10 

SPEED 

11 

SPEED 

12 

SPEED 

13 

SPEED 

14 

SPEED 

15 

SPEED 

16 

SPEED 

17 

SPEED 

18 

SPEED 

19 

SPEED 

20 

SPEED 

21 

SPEED 

22 

SPEED 

23 

SPEED 

24 

SPEED 

25 

SPEED 

26 
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Subroutine  FTRLND 


SUBROUTINE  rmLND(ERROR,ERRORJ.DRIVER, FACTOR, TOLRNCE^R-AG) 

THIS  SUBROUTINE  IS  A  ZERO  RNDING  ROUTINE  WHICH  VARIES  THE 
INDEPENDENT  VARIABLE  BASED  ON  THE  SIGN  AND  SIZE  OF  THE  ERROR.  THE 
LOOP  CONTAINING  THE  CALL  TO  ITRLND  IS  EXITED  SUCCESSFULLY  WHEN 
JFUG  =  3  OR  WHEN  THE  MAGNITUDE  OF  THE  ERROR  IS  LESS  THAN  THE 
TOLERANCE  VALUE,  TOLRNCE.  ERROR  AND  ERRORJ  ARE  THE  PRESENT  AND 
PREVIOUS  ERRORS,  RESPEClWaY.  JFLAG  IS  A  VARIABLE  WHICH 
INDICATES  THE  STATUS  OF  THE  SEARCH.  JFLAG  IS  SET  TO  0  BEFORE 
ITRLND  IS  CALLED.  AFTER  THE  RRST  CALI  TO  ITRLND.  JFLAG  IS  SET  TO 
1 .  JFLAG  IS  SET  TO  2  ONCE  THE  ZERO  IS  ISOLATED  BETWEEN  THE  UPPER 
AND  LOWER  BOUNDARIES,  BOUNDU  AND  BOUNDL,  RESPECTIVELY.  JFUG  IS 
SET  TO  3  AND  THE  ZERO  IS  CONSIDER  FOUND  WHEN  THE  ABSOLUTE  VALUE 
OF  THE  DIFFERENCE  BETWEEN  BOUNDU  AND  BOUNDL  IS  LESS  THAN  TOLRNCE, 
THE  TOLERANCE  PASSED  TO  SUBROLfTINE  ITRLND. 

DURING  THE  RRST  CALL  TO  ITRLND  DRIVERJ,  THE  PREVIOUS  DRIVER,  IS 
SET  TO  DRIVER  AND  DRIVER  IS  THEN  mulT ikUED  BY  FACTOR.  ON 
SUBSEQUENT  CALLS  TO  ITRLND  THESE  TWO  DRIVER  VALUES  ARE  SET  TO 
EITHER  UPPER  AND  LOWtJ^  BOUND  OR  A  MULTIPUCATION  OR  DIVISION  BY 
FACTOR  IS  APPUED  TO  DRIVER.  ONCE  THE  LOCATION  OF  THE  ZERO  IS 
DETERMINED  TO  BE  ON  ONE  SIDE  OF  THE  DRIVER  OR  THE  OTHER,  DRIVER 
IS  SET  TO  EITHER  THE  UPPER  OR  LOWER  BOUND  AS  THE  SEARCH  IS 
NARROWED. 

LOGICAL  FFUG.MFUG.PFUG 
IF(JFUG.EQ.O)THEN 

FFUG  =  MFUG  =  PFUG  =  .FALSE. 

JFUG  =  1 
ENDIF 

IF  (.NOT.PFUG)THEN 
PFUG  =  . TRUE. 

DRIVERJ  =  DRIVER 
DRIVER  =DRIVER*FACTOR 
RETURN 

ELSEIF  (.NOT.FFUG)THEN 

IF  (ERROR*ERRORJ.LT.O.O)THEN 
IF(DRIVERJ.LE.DRIVER)  THEN 
BOUNDL  =  DRIVERJ 
BOUNDU  =  DRIVER 
ELSE 

BOUNDU  =  DRIVERJ 
BOUNDL  =  DRIVER 
ERRORJ  = ERROR 
ENDIF 
JFUG  =2 
FFUG  =.TRUE. 

DRIVER  =  (BOUNDU -I- BOUNDLV2.0 


ITRLND  1 

ITRLND  2 

ITRLND  3 

ITRLND  4 

ITRLND  5 
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ITRLND  29 
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ITRLND  34 

ITRLND  35 
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ELSEIF(.NOT.MFUG  AND. 

ITRLND 

48 

&  ((ERROR.LT.0.0  AND.  ERROR.GE.ERRORJ)  .OR. 

ITRLND 

49 

&  (ERROR.GE.0.0  AND.  ERROR.LE.ERRORJ)))  THEN 

ITRIAID 

50 

DRIVERJ  =  DRIVER 

ITRLND 

51 

DRIVER  =DRIVER*FACTOR 

ITRLND 

32 

ELSE 

ITRLND 

53 

MFLAG  =.TRUE. 

ITRLND 

54 

BOUNDU  =  DRIVER 

ITRLND 

55 

DRIVERJ  =  DRIVER 

ITRLND 

56 

DRIVER  =BOUNDU/FACTOR 

ITRLND 

57 

ENDIF 

ITRLND 

58 

RETURN 

ITRLND 

59 

ENDIF 

ITRLND 

60 

IF(ERROR*ERRORJ.GT.O.O)  THEN 

ITRLND 

61 

BOUNDL  =  DRIVER 

ITRLND 

62 

ERRORJ  =  ERROR 

ITRLND 

63 

ELSE 

ITRLND 

64 

BOUNDU  :=  DRIVER 

ITRLND 

65 

ENDIF 

ITRLND 

66 

DRIVER  =  (BOUNDU  +  BOUNDL)/2.0 

ITRLND 

67 

IF(ABS(BOUNDU-BOUNDL)  .LT.  TOLRNCE)  JFLAG  =  3 

ITRLND 

68 

RETURN 

ITRLND 

69 

END 

ITRLND 

70 
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• 

Program  FtinctkHis 

Function  DGDT 

FUNCTION  DGOT(ALPHA,FFVrAS,GlAMMAaGWT) 

DGDT 

1 

C**“  THIS  FUNCTION  CALCULATES  DG«)T  AS  A  FUNCTION  OF  ALPHA.  IT 

DGDT 

2 

Cr**  REQUIRES  VARIABLES  CY,  FPVTAS,  GAMMAPP,  GWT,  AND  OS. 

DGDT 

3 

QMM 

DGDT 

4 

COMMON/AERO/  CX.CY,DAOTCMD,DCOXDCLX;)TDTGEX.FLAP.FLPPCT.QS. 

AERO 

1 

&  SPD6RK.SPOiLER,VKCAS.VKTAS 

AERO 

2 

COMMOfVAIRSPED/  \A<ABRK.\A<APP,VKBRAKE.VKEND,VKFAIL.VKFIA^ 

AIRSPED 

1 

&  \0(MCG,VKROTAT.VKSTART,VKWIND,VWIND 

AIRSPED 

2 

PARAMETER  (ASL^1.48,FPSKrS>1.687806,Gs  32.174, 

CONST 

1 

&  RX>57.29577951308.TSLFs58.0,ZERO»0.0) 

CONST 

2 

COMMON/CONST/  ASLSQR5,TWOOVR7 

CONST 

3 

CALL  FORCEX(ALPHA,CD,a) 

DGDT 

8 

DGDT  .  (G/(GWrFPVTAS)r(CrQS  -  GWrCOS{GAMMAR)) 

DGDT 

9 

RETURN 

DGDT 

10 

END 

DGDT 

11 

Function  DVDT 

FUNCTION  D\'DT(ALPHA,FPVTAS.QAMMAaGVYT) 

nVHT 

1 

C—  THIS  FUNCTION  CALCULATES  DV/DT  AS  A  FUNCTION  OF  ALPHA.  IT 

DVDT 

2 

w 

(T"  REQUIRES  VARIABLES  CX.  FPVTAS,  GAMMAPP,  GWT,  AND  QS. 

DVDT 

3 

C*“ 

DVDT 

4 

COMMON/AERO^  CX,CY,DADTCMD,DCDX,DCLX,DTDTGEX,FLAP.FLPPCT,QS. 

AERO 

1 

&  SPDBRK,SPOILER,VKCAS,VKTAS 

AERO 

2 

COMMON/AIRSPELV  VIO^VKAPP,VKBRAKE,VKEND,VIO^AIL.VKFLAP,VKFLPMX, 

AIRSPB) 

1 

&  VKMCG,VKROTAT,VKSTART,VICVVIND,VWIND 

AIRSPED 

2 

PARAMETER  (ASLs€6l  .40,FPSKTS»1 .687806,G=  32.174, 

CONST 

1 

&  RX«57.29577951308.TSLF«59.0,ZERO»0.0) 

CONST 

2 

COMMON/CONST/  ASLSQR5,TWOOVR7 

CONST 

3 

CALL  FORCEX(ALPHA,CD,a) 

DVDT 

8 

DVDH.DVTDH(FPVTAS,’  VC) 

DVDT 

9 

DVDT  -  G/GWr(-CX*QS  -  GWPSIN(GAMMAR))  -  DVDHTPVTAS*SIN(GAMMAR) 

DVDT 

10 

RETURN 

DVDT 

11 

BS> 

DVDT 

12 

• 
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Function  DVTDH 


FUNCTION  DVTDH  (VTAS,CONSTANT) 

DVTDH 

1 

C**“  THIS  FUNCTION  CALCULATES  THE  CUMB  SPEED  DERIVATIVE,  DVyDH  FOR 

DVTDH 

2 

C****  CONSTANT  CALIBRATED  AIRSPEED,  EQUIVALENT  AIRSPEED,  OR  MACH  NUMBER. 

DVTDH 

3 

DVTDH 

4 

DOUBLEPREaSION  DT1ME,DTIMEJ,TlME 

CTRL 

1 

PARAMETER  (LUIN^,LUOUT^) 

CTRL 

2 

COMMON/CTRiy  DTIME,OTIMEJ,ICOUNT,JDEBUG,KENG,UNENUM,LUMSG,NCOUNT, 

CTRL 

3 

& 

NEQ,NPAGE.TIME,TIMEROL 

CTRL 

4 

DOUBLEPREaSION  FPVTAS,GAMMAR,FPaST,PRESALT,FPACCEUDGDTR,VHAS, 

FPINTEG 

1 

& 

ROC,RKAIR 

FPINTEG 

2 

COMMON/FPINTEG/  FPVTAS,GAMMAR,FPDIST,PRESALT,FPACCEL,DGDTR.VHAS, 

FPINTEG 

3 

& 

ROC,RKAIR(40) 

FPINTEG 

4 

COMMON/ATMOS/  TEMPaPRESS,RHO,AFPS,VISCOSK,DaTA.SIGMULTHErA,DTEMPF 

ATMOS 

1 

PARAMETER  (ASL;^1.48,FPSICTSs1 .687806,0^  S2.174, 

CONST 

1 

& 

RXs57.29577951308,TSLF«59.0,ZERO=0.0) 

CONST 

2 

COMMON/CONST/  ASLSQRS,TWOOVR7 

CONST 

3 

COMMON/RACURV/  IOBUG,IE}CTOR,KURNAM(99) 

RACURV 

1 

CHARACTER  CONSTANr4 

DVTDH 

10 

IF(IDGUG.GE1)  WRITE(LUMSG,9001) 

DVTDH 

11 

9001  FORMAT  f  ENTERED  DVTDH) 

DVTDH 

12 

CALL  SPEEO(  GAMMAR,VrAS,VWIND>VyiACH,QS,VKCAS,VKEAS,VKTAS, 

DVTDH 

13 

VKTGS,VTGS) 

DVTDH 

14 

IF  (CONSTANT.EQ.’  VC)  THEN 

DVTDH 

15 

C**" 

CONSTANT  CALIBRATED  AIRSPEED 

DVTDH 

16 

OERIVAsOADH(PRESALT) 

DVTDH 

17 

DERIVD  a  DDaTDH(PRESALT) 

DVTDH 

18 

IF{IDBUG.GE1)  WRITE(LUMSG,1001)  DERIVA4}ER!VD,T!ME 

DVTDH 

19 

1001 

FORMAT(™  FROM  FUNCTION  DVTDH,  DADH,DDELTDH=’,2E16.8. 

DVTDH 

20 

& 

'ATTIME',E14.8,'**n 

DVTDH 

21 

IF  (VKCAS.LEJySL  AND.  AMACH.LE.1 .0)  THEN 

DVTDH 

22 

QMM 

SUBSONIC  EQUATION 

DVTDH 

23 

CONSTX  =  1.0  +  0.2*AMACH“2 

DVTDH 

24 

DVTDH  =  AMACH*DERIVA  -  {5.0*AFPS*((CONSTX)“3.5  - 1 .0)* 

DVTDH 

25 

& 

DERIVD)/(7.0*AMACH*(CONSTX)"2.5) 

DVTDH 

26 

ELSEIF  (VKCAS.GT.ASL  .AND.  AMACH.GT.1.0)  THEN 

DVTDH 

27 

C**" 

SUPERSONIC  EQUATION 

DVTDH 

28 

CONSTY  *  7.0’AMACH^  - 1.0 

DVTDH 

29 

DVTDH  =AMACH*DERIVA-(AFPS*OERIVD*(166.92rAMACH”7- 

DVTDH 

30 

& 

(CONSTY)**2.5)*(CONSTY))/ 

DVTDH 

31 

& 

(1 168.45*AMACH"6*{2.0*AMACH**2  - 1 .0)) 

DVTDH 

32 

ELSE 

DVTDH 

33 

WRrTE(LUMSG,1002) 

DVTDH 

34 

1002 

FORMATC  ILLEGAL  VALUES  FOR  VKCAS  AND  AMACH  PASSED  TO', 

DVTDH 

35 

& 

'  FUNCTION  DVTDH.  EITHER  VKCAS  IS  GREATER  THAN/, 

DVTDH 

36 

& 

'  ASL  AND  AMACH  IS  LESS  THAN  1.0  OR  VKCAS  IS  LESS*, 

DVTDH 

37 

i 

'  THAN  OR  EQUAL  TO  ASL  AND  AMACH  IS  GREATER  THAN’/, 

DVTDH 

38 

& 

'  1 .0;  EXECUTION  RETURNS  TO  CALUNG  SUBROUTINE.') 

DVTDH 

39 

ENDIF 

DVTDH 

40 

Source  Code  Listing 


Appendix  B 


aSEIF(CX3NSTANT.EQ.’  VE^THEN 

DVTDH 

41 

C*"* 

CONSTANT  EQUIVALB(T  AIRSPEED 

DVTDH 

42 

DXDH«OSIGOH{PRESALT) 

DVTDH 

43 

IF(iDBUG.GE1)  WRITE(LUMSG,1003)  0XDH,TIME 

DVTDH 

44 

1003 

FORMATC*^  FROM  FUNCTION  DVTDH,  DSIQDH  =’,E16.8, 

DVTDH 

45 

& 

•ATTIME‘,E14.8.’***n 

DVTDH 

48 

DVTDH  » •(VKEAS*FPSiaS)*DXDH/(2.0*SiGMA**1.5) 

DVTDH 

47 

ELSEIF(CONSrANT.EQ.lylACK)  THEN 

DVTDH 

48 

C*“* 

CONSTANT  MACH  NUMBER 

DVTDH 

49 

DXDH»DAOH(PRESALT) 

DVTDH 

50 

iF(IDBUaGE1)  WRITE(LUMSG,1004)  DXDH,TIME 

DVTDH 

51 

1004 

FORMATC  FROM  FUNCTION  DVTDH,  DADH  ='.E18.8, 

DVTDH 

52 

& 

■ATTlME'.E14.8,‘***n 

DVTDH 

53 

DVTDH  sAMACH*DXDH 

DVTDH 

54 

ELSE 

DVTDH 

55 

WRITE(LUMSG,1005) 

DVTDH 

58 

1005 

FORMATC  ILLEGAL  OPTION  CODE  PASSED  TO  FUNCTION  DVTDH;', 

DVTDH 

57 

& 

‘  EXECUTION  RETURNS  TO  CALUNG  SUBROUTINE') 

DVTDH 

58 

ENDIF 

DVTDH 

59 

RETURN 

DVTDH 

80 

END 

DVTDH 

81 
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Rmctioo  DAIXl 


FUNCTION  DA0H(HC) 

DADH 

1 

C****  THIS  FUNCTION  CALOJLAT^  THE  SPEED  OF  SOUND  DERIVATIVE  WTTH 

DADH 

2 

RESPECT  TO  PRESSURE  ALTITUDE 

DADH 

3 

QMM 

DADH 

4 

DOUBLEPRECISION  DTIMEDTIMEJ,TIME 

CTRL 

1 

PARAMETER  (LUIN-3,LUOUT-4) 

CTRL 

2 

COMMONCTHL;  DTIME,DTIMEJ,IC0UNT4)SUG,KENG.UNENUMJ.UMSG.NC0UNT, 

CTRL 

3 

& 

NEQ,NPAGETIMETIMER0L 

CTRL 

4 

IF  (HC.GE.  -1000.00  AND.  HC.LE  36069.24)  THEN 

DADH 

6 

DADH  » -0.0651S2(VSQRT(268.15  -  .0019ei2*HC) 

DADH 

7 

aSEIF  (HC.GT.  36069.24  AND.  HC.LE.  65616.60)  THEN 

DADH 

8 

DADH«  0.0 

DADH 

9 

BSEIF  (HC.GT.  65616.80  AND.  HC.LE  104966.88)  THEN 

DADH 

10 

DA0H»  0.0100234/SQRT(216.65  +  .0003048*(HC-  65616.8)) 

DADH 

11 

ELSEIF  (HC.GT.  104966.88  AND.  HCIE.  154199.48)  THEN 

DADH 

12 

DADH  =  0.0280641/SQRT(228.65  .0008534*(HC  - 104966.88)) 

DADH 

13 

ELSE 

DADH 

14 

WRnE(LUMSG.1001) 

DADH 

15 

1001 

FORMATC  ILLEGAL  PR^SURE  ALTITUDE  PASSED  TO  FUNCTION  DADH;', 

DADH 

16 

& 

'  EXECUTION  RETURNED  TO  CALUNG  SUBROUTINE^ 

DADH 

17 

B40IF 

DADH 

18 

RETURN 

DADH 

19 

END 

DADH 

20 
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Function  DDELTDH 


FUNCTION  0DaTDH(HC) 

DDELTDH 

1 

C****  TI«S  FUNCTION  CALCULATES  THE  PRESSURE  RATIO  DERIVATIVE  WITH 

DDaTDH 

2 

Cr-  RESPECT  TO  PRESSURE  ALTITUDE. 

DDaiDH 

3 

C**" 

DDELTDH 

4 

DOUBLB>RECISION  DTIME.DTi4EJ.TIME 

CTRL 

1 

PARAMETBI  (LUIN^,LUOUT»4) 

CTRL 

2 

COMMOMCTRL/  OTi4E.DTi4EJ.iCOUNT4}SUG,KENG.LINENUM4JiMSG.NCOUNT, 

CTRL 

3 

&  NEQ.NPAGE.TME.Ti4EROL 

CTRL 

4 

IF  (HC.6E.  -1000.00  AND.  HC.LE  36069.24)  THEN 

DDELTDH 

6 

DOaTDH  « -0.361374t04/(1.0  -  HC*6.875S86&06) 

DDELTDH 

7 

ELSEIF  (HC.GT.  36069.24  AND.  HCJ£.  65616.80)  THEN 

DDELTDH 

8 

DDaTDH»-0.480637&94 

DDaTDH 

9 

ELSEIF  (HC.6T.  65616.80  AND.  HC.LE.  104986.88)  THEN 

DDaTDH 

10 

DDaTDH>-0.480637E4l4/(1.0-»^(HC-  65616.80)*1.40688E-06) 

DDaTDH 

11 

ELSEIF  (HC.QT.  104966.88  AND.  HCiE.  154199.48)  THEN 

DDaTDH 

12 

DDELTDH  -  -0.45541 2E-04/(1.0  *  (HC  -  104986.88)*3.732S2E-06) 

DDaTDH 

13 

ELSE 

DDaTDH 

14 

WRITE(LUMSG.1001) 

DDaTDH 

15 

1001  FORMATC  ILLEGAL  PRESSURE  ALTITUDE  PASSED  TO  FUNCnON*, 

DDaTDH 

16 

&  'DOaTDH;  EXECUTION  RETURNS)  TO  CALUNG  SUBROUTINE^ 

DDaTDH 

17 

ENDIF 

DDaTDH 

18 

RETURN 

DDaTDH 

19 

END 

DDaiDH 

20 
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Rnctiaa  DSKMl 


FUNCTION  OSIGOH(HC) 

DSIGOH 

1 

(T**  THIS  SUBflOUTVE  CALCUlAIIS  THE  0B4SITY  RATIO  DERIVATIVE  WITH 

DSIGOH 

2 

Cr“  RESPKT  TO  PRESSURE  ALTmJOE 

DSIGOH 

3 

Q*M* 

DSIGOH 

4 

DOUBLEPRECISION  DTHI4E.OTIMEJ, TIME 

CTRL 

1 

PARAMETER  (LUMs3.LUOUTa4) 

CTRL 

2 

COMMON/CTRL/  OTIME,OTIMEJ.ICXXINT4>EBUG,I(ENG.UNENUMJJUMSG.NCOUNT. 

CTRL 

3 

& 

NEQ.NPAGE,TIME.TIMEROL 

CTRL 

4 

IF  (HC.GE.  -1000.00  AND.  HCI£.  36069.24)  THEN 

DSIGOH 

6 

DSIGDH  a  -2.926178E-05*(1.0  -  HC*6.87S58E-06)**32S59 

DSIGDH 

7 

ELSEIF  (HC.GT.  36089.24  AND.  HC.LE.  65616.80)  THEN 

DSIGOH 

8 

DSIGDH  s  EXP  KSOSSTEOS'CHC  -  36069.24))*(-1 .427853E-05) 

DSIGOH 

9 

ELSEIF  (HC.GT.  65616A0  AND.  HC.LE.  104986.88)  THEN 

DSIGDH 

10 

DSIGDH  ^-3.555171  E4)6* 

DSIGOH 

11 

& 

(1.0  +  1.40688E-06*(HC  r  65616.80))**(-36.1634) 

DSIGDH 

12 

ELSEIF  (HC.GT.  104966.88  AND.  HOLE.  154199.48)  THEN 

DSIGDH 

13 

DSIGDH  «-5.319445&0r 

DSIGOH 

14 

& 

(1.0  *  3.732S2E-06*(HC  - 104986.88))**(-14.2012) 

DSIGDH 

15 

BM 

DSIGDH 

16 

WRrrE(LUMSG.1001) 

DSIGDH 

17 

1001 

FORMATC  ILLEGAL  PRESSURE  ALTITUDE  PASSED  TO  FUNCTION', 

DSIGDH 

18 

& 

'  DSIGOH;  EXECUTION  RETURNED  TO  CALUNG  SUBROUTINE^ 

DSIGDH 

19 

ENDIF 

DSIGDH 

20 

RETURN 

DSIGDH 

21 

DSIGDH 

22 
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m  ni 


Fttncti<»  INTERP 


REALRJNCTlC)NINTERP(YNOW.YPAST;(^KM;(P  IMTERP  1 

THIS  FUNCTION  RETURNS  THE  INTERPOLATED  VALUE  BETVVEENTVVO  ORDINATE  INTERP  2 

INPUTS  BASED  ON  THE  ADDITIONAL  INPUTS  OF  THREE  ABSCISSAS.  INTERP  3 

INTERP  4 

XDIFFsXNOW-XPAST  INTERP  5 

INTERP  6 

CHECK  DIFFERENCE  BETWEEN  X-COORDINATES  TO  PREVENT  ARITHMETIC  INTERP  7 

DIVISION  BY  ZBK).  INTERP  8 

IF(XDiFF.EQ.0.0)XDIFF»1.0  INTERP  9 

INTERP  *YNOW-((YNOW-YPAST)*(XNOW-XANSyXDIFF)  INTERP  10 

RETURN  INTERP  11 

END  INTERP  12 
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F^mctxmZEROX 


FUNCTION  ZEROX(A.B.FUNCTN,VAR2,VAR3.VAR4,TOLRNCE,FINDV) 

THIS  FUNCTION  FINDS  THE  ZERO  OF  THE  FUNCTION  FUNCTNPO  ON  AN 
INTERVAL  X»ATOX»B.  THE  PROGRAM  ASSUMES  THAT  F(AX)  AND 
F(BX)  ARE  OF  OPPOSITE  SIGN,  IMPLYING  THAT  FUNCTN(X)  IS  ZERO 
SOMEWHERE  IN  THAT  INTERVAL  THE  ARGUMENT.  'FUNCTN',  MUST  BE 
DECLARED  EXTERNAL  IN  THE  MAIN  CALUNG  PROGRAM  AND  HAVE  FOUR 
CALUNG  ARGUMENTS,  A  OR  B,  VAR2,  VARS,  AND  VAR4. 

LOGICAL  FINDV 
REAL  A,B.FUNCTN,TOLRNCE 
DATAEPSILON/2^E-16/ 

AX  sCXs  A 
BX  >  B 
IF(FINOV)THEN 

FAX  »FCXs  FUNCTN(VAR2>0(.VAR3.VAR4} 

FBX  =  FUNCTN(VAR2.BX,VAR3,VAR4) 

ELSE 

FAX  =FCXsFUNCTN(AX,VAR2,VAR3,VAR4) 

FBX  a  FUNCTN(BX.VAR2,VAR3,VAR4) 

ENDIF 

D  =E  =  BX<AX 
19  IF(ABS(FCX).LTJ^BS(FBX))THei 
AX  »BX 
BX  sCX 
CX  «AX 
FAX  »FBX 
FBX  »FCX 
FCX  =FAX 
ENDIF 

TOIX  =Z(rEPSILON*ABS{BX)  +  TOLRNCE 

DIFCXBX«CX-BX 

HALFDIFs0.5*DIFCXBX 

IF  ((ABS(HALFDiF).LETOLX)  .OR.  (FBXEQ.0.0))  THEN 
ZEROX»BX 
RETURN 

ELSBF((ABS(E).LT.TOLX).OR.(ABS(FAX).LEJVBS(FBX)))  THBI 
DsE^HALFDIF 

ELSE 

S>FBX/FAX 
IF(AX.EQ.CX)THEN 
P»DIFCXBX*S 
Q  =  1.0-S 

Pl$F 

Q  =  FAX/FCX 
R  =  FBX/FCX 

P  =  S*PFCXBX^*(Q  -  R)  -  (BX  -  AX)*(R  - 1.0)) 

Q  =  (Q-1.0)*(R-1.0)*{S-1.0) 

ENDIF 


ZEROX 

1 

ZEROX 

2 

ZEROX 

3 

ZEROX 

4 

ZEROX 

5 

ZEROX 

6 

ZEROX 

7 

ZEROX 

8 

ZEROX 

9 

ZEROX 

10 

ZEROX 

11 

ZEROX 

12 

ZEROX 

13 

ZEROX 

14 

ZEROX 

15 

ZEROX 

16 

ZEROX 

17 

ZEROX 

18 

ZEROX 

19 

ZEROX 

10 

ZEROX 

21 

ZEROX 

22 

ZEROX 

23 

ZEROX 

24 

ZEROX 

25 

ZEROX 

26 

ZEROX 

27 

ZEROX 

28 

ZEROX 

29 

ZEROX 

30 

ZEROX 

31 

ZEROX 

32 

ZEROX 

33 

ZEROX 

34 

ZEROX 

35 

ZEROX 

36 

ZEROX 

37 

ZEROX 

38 

ZEROX 

39 

ZEROX 

40 

ZEROX 

41 

ZEROX 

42 

ZEROX 

43 

ZEROX 

44 

ZEROX 

45 

ZEROX 

46 

ZEROX 

47 

ZEROX 

48 
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IF(P.LEO.O)THEN 

ZEROX 

49 

A 

P  =  -P 

ZEROX 

50 

V 

asE 

ZEROX 

51 

Q»-Q 

ZEROX 

52 

BIDIF 

ZEROX 

63 

SsE 

ZEROX 

54 

E>D 

ZEROX 

55 

IF(({ZO*P)  .GE(aO*HALFDIPQ-ABS(TOtX*Q))).OR. 

ZEROX 

56 

&  {  P  .GE.  ABS(0.5*S*Q)))  THBI 

ZEROX 

57 

D-E  =  HALFDIF 

ZEROX 

58 

ELSE 

ZEROX 

59 

D«P/Q 

ZEROX 

60 

BIDIF 

ZEROX 

61 

ENDIF 

ZEROX 

62 

AX  »BX 

ZEROX 

63 

FAX  =:FBX 

ZEROX 

64 

IF  (ABS(D).GT.TOLX)  THEN 

ZEROX 

65 

BX>BX^D 

ZEROX 

66 

aSEIF  (CX.GT.BX)  THEN 

ZEROX 

67 

BX«BX+TOLX 

ZEROX 

68 

ELSE 

ZEROX 

69 

BX«BX-TOLX 

ZEROX 

70 

ENDIF 

ZEROX 

71 

IF(nNOV)THEN 

ZEROX 

72 

FBX  «  FUNCTN(VAR2.BX.VAR3.VAR4) 

ZEROX 

73 

asE 

ZEROX 

74 

FBX  »  FUNCTN(BX.VAR2,VAR3,VAR4) 

ZEROX 

75 

w 

ENDIF 

ZEROX 

76 

IF(FBX*FCX/ABS(FCX).GT.O.O)  THEN 

ZEROX 

77 

a  >AX 

ZEROX 

78 

FCX  -FAX 

ZEROX 

79 

D  «E«BX-AX 

ZEROX 

80 

ENDIF 

ZEROX 

81 

GO  T0 19 

ZEROX 

82 

END 

ZEROX 

83 

• 
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• 

Subroutiiie  INICURV 

SUBROUTINE  INICURV 

INICURV 

1 

(T**  THIS  SUBROUTINE  INITIALIZES  THE  NAMES.  TABLES  AND  VALUE  NAMES  OF 

INICURV 

2 

THE  RANDOM  ACCESS  CURVE  RLES  AND  OPENS  THE  APPROPRIATE  CURVES  AS 

INICURV 

3 

(r“  NEEDED. 

INICURV 

4 

c**** 

INICURV 

5 

PARAMETER  (ASL^I . 48, FPSKTS^I  .687806,0=  32.174, 

CONST 

1 

&  RX=57.29577951306,TSLF=59.0,ZERO=0.0) 

CONST 

2 

COMMONAXWST/  ASLSQRS,TWOOVR7 

CONST 

3 

LOGICAL  AOAOFLG,BRKFLAG.CLRHGT.ERRFLAG.FAILFLG,FLAPFLG,FPCTFLG, 

FLAGS 

1 

&  GEFLAG.LGRFLAG,LJFTOFF,OVERaG.REVFUG,REVnSE.ROTATE, 

FLAGS 

2 

&  RTOFUG.SBKFLAG,SPLFLAG.SPOOl,STEADY,TERMFLG.VECTFLG. 

FLAGS 

3 

&  VFFLAG,WRrnTR 

FUGS 

4 

COMMON/FUGS/  AOAOFLG.BRKFLAG,CLRHGT.ERRFLAG,FA1LRG.FLAPFLG. 

FUCS 

5 

&  FPCTFLG.GEFLAG.LGRFLAG.UFTOFF,OVERFLG.REVFUG. 

FUGS 

6 

&  REVRSE.ROTATE.RTOFLAG,SBKFLAG.SPLFUG,SPOOL,STEADY, 

FUGS 

7 

&  TERMFLG.VECTFLG,VFFLAG.WRmTR 

FUGS 

8 

CHARACTER  ENGGRP*3,FAILGRP*3.FAILMOO*5.FAlLSr4,MVR*3,MANUVR*6, 

CHARV 

1 

&  THRCRir3.TK0TYPE7 

CHARV 

2 

COMMONOIARV/  ENGGRP,FAILGRP.FAILMOO.FAILST,MVR.MANUVR.TriRCRV, 

CHARV 

3 

&  TKOTYPE 

CHARV 

4 

COMMON/CINDEX/MSTRNOX(3).NDXLEN,LUCURV 

CINDEX 

1 

COMMON/RACURV/  IDBUG,IEXTOR,KURNAM(99) 

RACURV 

C0MM0N/VALUES/VAL1N(15).VFUEL(4),VIDLE(4).VUFT(2),VAER0(15) 

VALUES 

COMMON'^'BLESnrua  (172),TIDLE  (119),TAER007(72).TAER008(88). 

TABLES 

1 

&  TAER009(79).TAER010(62).TAER01 1  (91).TAER012(76), 

TABLES 

2 

&  TAER013{64).TAER014(73).TAER015(74).TAER016(66), 

TABLES 

3 

&  TAERO17(e6),TAERO18{77).TAERO19(73),TAERO20(76), 

TABLES 

4 

&  TAER021(76).TAER022(81),TAER023{74) 

TABLES 

5 

LOGICAL  CRVFUG 

INICURV 

12 

C  INTEGER 

INICURV 

13 

C  REAL 

INICURV 

14 

DATA  IDBUG,  lEXTOR.LUCURV.NDXLEN.NDXTYPE 

INICURV 

15 

&  /  0.  0.  2,  3.  0/ 

INICURV 

16 

QMM 

INICURV 

17 

C*^  OPEN  RANDOM  CURVE  RLE  WITH  EXTENDED  CORE  STORAGE. 

INICURV 

18 

IF(.NOT.CRVFlAG)THEN 

INICURV 

19 

C  CALLOPENMS{LUCURV,MSTRNDX,NOXLEN,NDXTYPE) 

INICURV 

20 

ENDIF 

INICURV 

21 

QMM 

INICURV 

22 

Cr—  INITIALIZE  CURVE  ARRAYS. 

INICURV 

23 

IF(.NOT.CRVFLAG)THEN 

INICURV 

24 

CRVFLAG  =  .TRUE. 

INICURV 

25 

NDXTYPE  =  0 

INICURV 

26 

C  CALLCURVSET(KURNAM,TABLE,NDIM(X}.NAMEIN,NUNm,NIPIN. 

INICURV 

27 

C  &  NAMEOUT,NUNITO,NDPOUT(1),IDBUG,LUMSG) 

INICURV 

28 

ENDIF 

INICURV 

29 

RETURN 

INICURV 

30 

BfD 

INICURV 

310 
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Subroutiiie  FORCEX 


SUBROUTINE  FORCEX(ALPHA,CO.CL) 

THIS  SUBROUTINE  PROVIDES  T^IE  TOTAL  FORCE  COEFRCIENTS  ALONG 
AND  NORMAL  TO  THE  RJGHTPATH  BY  CALUNG  USER  PROVIDED  SUBROUTINE 
‘FXXAERO’  TO  DETERMINE  UFT  AND  DRAG  COEFFICIENTS  AND  USER 
PROVIDED  SUBROUTINES  ‘FXXENG',  SPOOLUP,  SPOOLDNF.  AND  SPOOLDNR  TO 
PROVIDE  THRUST  AND  FUEL  FLOW. 

SUBROUTINE  FORCEX  SHOULD  REQUIRE  ONLY  THE  FOLLOWING  MODIFICATIONS: 

1)  INITIAUZATION  OF  THE  DATA  STATEMENT  PROVIDING  VALUES  FOR 
AIT,  AR.  B,  CGPCT,  CLAIPH,  CONFIG.  DTDTMX,  FLAP.  FLPPCT.  FLPPCT. 

HZ,  LOADING.  NENG,  PWRCODE.  RC.  SWING.  THRCRV.  THTMAX, 
X1DLE.XLFMAX.ANDXMIL 

2)  CHANGING  THE  CALUNG  SfATEMENT  FOR  SUBROUTINES  'FXXAERO' 

AND  ‘FXXENG’  TO  THE  USER  PROVIDED  NAMES  WITH  THE 
APPROPRIATE  CALUNG  ARGUMENTS.. 

OOUBLEPRECISION  DTIME.DTIMEJ.TIME 
PARAMETER  (LUINs3.LUOUTs4) 

COMMON/CTRiy  DTIME.DTIMEJ.ICOUNT.JDEBUG.KENG.UNENUM.LUMSG.NCOUNT, 
&  NEQ.NPAGE.TIME.TIMEROL 

COMMON/AIRCRR/  AOA3PT.AR.B.CGPCT.CLALPH.CONFIG.DTDTMX.FLT.GWT,HZ. 

&  LOADING.SWING.THTMAX.WNGLOD.XLFMAX 

COMMON/AERO/  CX.CY.DADTCMD.DCOX.DClX,DTDTGEX.FLAP,FLPPCT.QS, 

&  SPDBRK.SPOILER.VKCAS.VICrAS 

COMMON/ENGINE/  AIT>WIACH,DTFAIL.EPR.FE.FG.FGPCT.NENG.PWRCODE. 

&  REVNDX.RC.THRUST.VTANGLE.WFUEL.XENG.XENGFLD. 

&  XENGOUT.XIDLE.XMIL.ZFN 

COMMON/AIPBORN/  ALPHAJJVJ>HMX.DTDT,GAMMAPP.ROCFPM.THETAF.XLF,XLFJ 
COMMON/AIRSPED/  VKABRK.VKAPP.VKBRAKE,VKEND.VKFAII,VKFLAP.VKP  PMX, 

&  VKMCG.VKROTAT.VKSTART.VKWIND.VWIND 

LOGICAL  AOAOFLG.BRKFLAG.CLRHGT.ERRFUG.FAILFLG.FLAPFLG.FPCTaG. 

&  GEFLAG.LGRFUG.UFTOFF.OVERFLG,REVFLAG.REVRSE.ROTATE. 

&  RTOFUG.SBKFLAG.SPLFLAG.SPOOL,STEADY.TERMFLG.VECTRG. 

&  VFFLAG.WRmTR 

COMMON/FUGS/  AOAOFLG.BRKFLAG.CLRHGT.ERRFUG.FAILFLG.FLAPFLG, 

&  FPCTFLG.GEFLAG.LGRFUG.UFTOFF,OVERFLG.REVFLAG. 

&  rl^rse.rotate.rtofug.sbkflag,splfug.spool,steady. 

&  TERMnG.VECTRG.VFFUG.WRnTm 

CHARACTER  ENGGRP*3.FAILCP'’*3,FAILMOD*5.FAJLSr4.MVR*3.MANUVR*6. 

&  THRCRV3.TK0TYPE7 

COMMON/CHARV/  ENGGRP.FAILGRP.FAILMOD.FAILST.MVR.MANUVR.THRCRV, 

&  TKOTYPE 

DATA  ATT.  AR.  B,  CGPCT.  CLALPH.  CONFIG,  DTDTMX.  FLAP,  FLPPCT 
&  /  0.0.  7.000.  75.0,  25.0,  0.120,  1.0.  7.0,  -1.0,  50.0  /, 

&  HZ,  LOADING.  NENG,  PWRCODE,  RC,  SWING,  THRCRV.  THTMAX 

&  /  5.50,  1.  4.  4444.,  0.0,  800.,  ‘RC.  15.0/, 

&  XIDLE,  XLFMAX,  XL^'IL 
&  /  0.06,  2.0,  0.50  / 
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FORCEX 

27 

FORCEX 
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DO  OO  OO  OO 


CALLFXXAERO(ALPHA.AMACH,CL.CD,FLAP.SPOILER.VKCAS;(ENGOUT) 

FORCEX 

33 

IF(.NOT.  STEADY)  THEN 

FORCEX 

34 

CALLFXXENG(ArT,AMACH,NENG.PWRCODE.QS,VKCAS,XENG,XIDLE. 

FORCEX 

35 

FE.FG, THRUST, WFUEL.EPR) 

FORCEX 

36 

C"** 

FORCEX 

37 

C*“*  ADJUST  THRUST  BY  FGPCT  FACTOR 

FORCEX 

38 

FACTOR  =1.00  +  FGPCT/100. 

FORCEX 

39 

FG  =  FG*FACTOR 

FORCEX 

40 

THRUST  =THRUSrFACTOR 

FORCEX 

41 

WFUEL  =WFUEL*FACTOR 

FORCEX 

42 

ENDIF 

FORCEX 

43 

C**" 

FORCEX 

44 

C**“  CALCULATE  NET  THRUST  COEFRCIENT. 

FORCEX 

45 

CTX=  (FG*COSD  (ALPHA+AIT)  -  FE)/QS 

FORCEX 

46 

CTY=  (FG'SIND  (ALPHA+AIT)  )/QS 

FORCEX 

47 

C**" 

FORCEX 

48 

C****  ADD  USER  INCREMENTS  TO  CL  AND  CD. 

FORCEX 

49 

CL  =CL  +DCLX 

FORCEX 

50 

CD  =  CD  +  DCDX 

FORCEX 

51 

c**** 

FORCEX 

52 

C****  CALCULATE  FORCE  COEFRCIENTS  CX  AND  CY. 

FORCEX 

53 

CX  =  CD  -  CTX 

FORCEX 

54 

CY  =  CL  +  CTY 

FORCEX 

55 

RETURN 

FORCEX 

56 

END 

FORCEX 

57 
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SUBROUTINE  FXXAERO(ALPHA.AMACH,CL,CD, FLAP, SPOILER, VKCAS;(ENGOUT) 

FXXAERO 

1 

cr-  THIS  SUBROUTINE  CALCULATES  OR  PERFORMS  A  TABLE  LOOKUP  TO 

FXXAERO 

2 

Cr-  DETERMINE  THE  UFT  AND  DRAG  COEFFICIENTS  FOR  THE  AIRCRAFT.  THIS 

FXXAERO 

3 

Cr**  SUBROUTINE  AND  ITS  NAME  ARE  PROVIDED  BY  THE  USER. 

FXXAERO 

4 

FXXAERO 

5 

DOUBLEPRECISION  DTIME,DTIMEJ,TIME 

CTRL 

1 

PARAMETER  (LUIN=3.LUOUT=4) 

CTRL 

2 

COMMON/CTRL/  DTIME,DTIMEJ,ICOUNT,JDEBUG,KENG,UNENUM,LUMSG,NCOUNT, 

CTRL 

3 

& 

NEQ,NPAGE,TIME,TIMEROL 

CTRL 

4 

COMMON/AIRCRFT/  AOA3PT,AR,B,CGPCT,CLALPH,CONFIG,DTDTMX,FLT,GVVT,HZ, 

AIRCRFT 

1 

& 

LOADING, SWING, THTMAX,WNGLOD.XLFMAX 

AIRCRFT 

2 

COMMONA/ECTOR/  HVECT,VVECT 

VECTOR 

1 

COMMON/AIRSPED/  VKABRK,VKAPP,\rt<BRAKE,VKEND.\A<FAIL,\A<FLAP,VKFLPMX. 

AIRSPED 

1 

& 

VKMCG,VKROTAT.VKSTART.VKWIND,VWIND 

AIRSPED 

2 

COMMON/RUNWAY/  ABARG,AOAABRK,BRAKMU,BRKFCTR,QAMMARW.GRW,HAGl, 

RUNWAY 

1 

& 

HCLEAR,HFLARE,HGEAR,rtRUNWAY.IMU,RCR,ROLLMU,TIMEFLD, 

RUNWAY 

2 

& 

TIMEBRK.TIMEFLP,TIMESBK,T1MESPLXMU 

RUNWAY 

3 

DOUBLEPRECISION  fpvtas,gammar.fpdist,presalt.fpac/::eudgdtr,vhas, 

FPINTEG 

1 

& 

ROC,RKAIR 

FPINTEG 

2 

COMMON/FPINTEG/  FPVrAS,GAMMAR,FPDIST,PRESALT.FPACCELDGDTR,YHAS, 

FPINTEG 

3 

& 

FPINTEG 

4 

COMMON/ATMOS/  TEMPR,PRESS,RHO.AFPS,VISCOSK,DELTA.SIGMA,THETA,DTEMPF 

ATMOS 

1 

LOGICAL  AOAOFLG,BRKFUG,CLRHGT,ERRFUG.FAILFLG,FLAPFLG,PCTaG, 

FLAGS 

1 

& 

GEFLAG,LGRFLAG,UFTOFF,OVERFLG,REVFUG,REVRSE,ROTAT5, 

FLAGS 

2 

& 

RTOFLAG,SBKFUG,SPLRAG,SPOOUSTEADY,TERMaQ,VECTaG, 

FLAGS 

3 

& 

VFFUG,WRmTR 

FUGS 

4 

COMMONAIAGS/  AOAOaG,BRKFUG.CLRHGT,ERRFUG,FAILaG.FUPaG, 

FUGS 

5 

& 

FPCTaG.GEFLAG,LGRFLAG,LIFTOFF,OVERaG,REVFLAG, 

FUGS 

6 

& 

REVRSE,ROTATE,RTOFLAG.SBKFUG,SPLFUG,SPOOL,STEADY, 

FUGS 

7 

& 

TERMaG,VECTFLG,VFFLAG,WRnTrR 

FUGS 

8 

CHARACTER  ENGGRP*3,FAILGRP*3.FAILMOD*5,FAlLSr4,MVR*3,MANUVR*6, 

CHARV 

1 

& 

THRCRV*3,TK0TYPE7 

CHARV 

2 

COMMOM'CHARV/  ENGGRP,FAILGRP,FAILMOD,FAILST,MVR,MANUVR,THRCRV. 

CHARV 

3 

& 

TKOTYPE 

CHARV 

4 

COMMON/RACURW  IDBUG,IEXTOR,KURNAM(99) 

RACURV 

1 

COMMON/VALUESA/AUN(15).VFUEL(4).VIDLE(4).VUR(2),VAERO(15) 

VALUES 

2 

COMMON/TABLESn’FUEL  (172),TIDLE  (119),TAEROC7(72),TAERO08(88), 

TABLES 

1 

& 

TAER009(79),TAER01 0(62),TAERO1 1  (91  ),TAER01 2(76), 

TABLES 

2 

& 

TAER013(64),TAER014{73),TAER015(74),TAER016(66), 

TABLES 

3 

& 

TAERO17(66),TAEROl8{77),TAERO19(73),TAERO20{76), 

TABLES 

4 

& 

TAER021(76),TAER022(81),TAER023{74) 

TABLES 

5 

DATA  DCDFLP,  DCDCG,DCDWML,DCDEOT,  DFLAPDT,DSPLRDT,DTGEAR.  VKFLPMX 

FXXAERO 

17 

& 

/  0.0000,  0.0000,  0.0000,  0.0000,  3.0,  9.0,  6.0,  225./ 

FXXAERO 

18 

C”** 

FXXAERO 

19 

C”" 

EMPIRICAL  FORMULA  FOR  LANDING  GEAR  DRAG. 

FXXAERO 

20 

IF(DCDLGR.EQ.0.0)  DCDLGR  =  (0.0032/SWINGrGWr*0.80 

FXXAERO 

21 
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QMM 

FXXAERO 

22 

C****  INITIALIZE  VAUN  ARRAY  FOR  CURVE  FILE  LOOKUPS. 

FXXAERO 

23 

VAUN(IA)«  PRESALT 

FXXAERO 

24 

VALIN(IB)»AMACH 

FXXAERO 

25 

VAUN(IC)sFLTNDX 

■^XXAERO 

26 

VAUN(ID)  =  FLAP 

rXXAERO 

27 

VAUN(!E)  =  VKCAS 

FXXAERO 

28 

VAUN(IF)  =  CGPCT 

FXXAERO 

29 

VAUN(IG)s  ALPHA 

FXXAERO 

30 

C**” 

FXXAERO 

31 

c**“ 

DETERMINE  UFT  COEFFICIENT,  CL.  USING  CURVE  UFT. 

FXXAERO 

32 

c 

CALL  CURVEL(KURNAM(XX).TABLE, TABLE, VAUN.VUFT. 

FXXAERO 

33 

c  & 

IOBUG,IEXTOR,LUMSG) 

FXXAERO 

34 

CLSLOPE  =VUFT(1) 

FXXAERO 

35 

CUNTCP  *VUFT(2) 

FXXAERO 

36 

VAUN(9)  =a  =  CLSLOPE*ALPHA  + CUNTCP 

FXXAERO 

37 

IF((NCOUNT.EQ.10OR.STEADY)  AND. 

FXXAERO 

38 

& 

(JDEBUG.EQ.7001  .OR  JDEBUG.EQ.7777.0R  JDEBUG.EQ.9g99))  THEN 

FXXAERO 

39 

WRITE(LUMSG.7001)VUFT,VAUN(9),VAUN(7),VAUN(8) 

FXXAERO 

40 

7001 

FORMATC  CLSLOPE,CUNTCP.CtFLTNDX,FLAP  =*.3F10.6,2F8.1) 

FXXAERO 

41 

ENDIF 

FXXAERO 

42 

c**** 

FXXAERO 

43 

FLAP  RETRACTION 

FXXAERO 

44 

IF((FLAPaC  A.ND.  (VKCAS.GE.VKFLAP  .OR.  VKCAS.GE.VKFLPMX))  .OR. 

FXXAERO 

45 

& 

(FLAPFLG  AND.  TIMEROLGE.(TDEUY+TFLP)  )) 

FXXAERO 

46 

& 

CAU.  FRETRAC(FIAP.VKFUP.DFLAPDT) 

FXXAERO 

47 

FXXAERO 

48 

c**" 

SPOILER  DEPLOYMENT 

FXXAERO 

49 

IF(.NOT.(SPLFLAG)  AND.  TIMEROLGE.(TDELAY+TSPL))  THEN 

FXXAERO 

50 

SPLREND  =  90.0 

FXXAERO 

51 

CALL  SPOILCDEPLOY’.SPOILER.SPLREND.DSPLRDT) 

FXXAERO 

52 

ENDIF 

FXXAF»0 

53 

IF(LGRFLAG)THEN 

FXXAERO 

54 

DETERMINE  DELTA  DRAG  COEFFICIENT  FOR  1 ANDING  GEAR,  DCDLGR, 

FXXAERO 

55 

c*~* 

USING  CURVE  LGRDRAG. 

FXXAERO 

56 

c 

CALL  CURVEL(KURNAM(XX).TABLE.TABL£,VAUN,VAERO(Y). 

FXXAERO 

57 

c  & 

IOBUG,IEXTOR,LUMSG) 

FXXAERO 

58 

DCDLGR  =  VAERO(Y) 

FXXAERO 

59 

IF{HAGLGE.HGEAR)  CALL  GRETRAC(DCDLGR,DTGEAn,HAGL) 

FXXAERO 

60 

ELSE 

FXXAERO 

61 

DCDLGR  =  0.0000 

FXXAERO 

62 

ENDIF 

FXXAERO 

63 
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FXXAERO 

64 

Cr**  SUM  INCREMENTS  FROM  CURVE  FILES 

FXXAERO 

65 

CL 

=  CLALPH*ALPHA 

FXXAERO 

66 

CL 

»CL -i-DCLSPL -t^DCLX 

FXXAERO 

67 

CD 

.  CD  +  DCOSPL  +  DCDFLP  +  DCDREN  +  OCDLGR  +  DCDGE*(GEFACTR) 

FXXAERO 

68 

& 

+  DCDCG  -i-DCDWML-i-DCDEOT+DCDX 

FXXAERO 

69 

IF 

((NCOUNT.EQ.10.OR.STEADY)  AND. 

FXXAERO 

70 

& 

(JDQUG£Q.7002.ORJDEBUG.EQ.7777.ORJDEBUG.EQ.9999))  THEN 

FXXAERO 

71 

WRITE(LUMSG,7002)  (VAERO(I)>1.10) 

FXXAERO 

72 

7002 

FORMATf  VAERO(1).SPLDEF,DCDSPL,DCDREN,DCDLGR,DCDGE.DCDCG,', 

FXXAERO 

73 

&' 

DCDWMUDCDEOT,DCLSPL  »  V.11F10.6) 

FXXAERO 

74 

ENDIF 

FXXAERO 

75 

RETURN 

FXXAERO 

76 

END 

FXXAERO 

77 
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Sabroatiiie  GEFF-tCT 


SUBROUTINE  GEFFECT(HAGUSRATIO) 

C  SUBROUTINE  GEFFECT(AU>H^a,HAGL,DaGE,DCOGE)  PARKS 
THIS  SUBROUTINE  SUPPUES  THE  GROUND  EFFECT  INCREMENTS  TO  THE 
AERODYNAMIC  COEFFICIBTFS.  THIS  GENERIC  SUBROUTINE  PROVIDES 
PREDICTED  GROUND  EFFECT  EQUATIONS  WHICH  CAN  BE  MODIRED  BY  THE 
USER  FOR  A  PARTICULAR  AIRCRAFT. 

COMMON/AIRCRFT/  AOA3PTMB,CGPCT.CLALPH.CONFIG,DTDTMX.FLT.GWT,HZ. 

LOADING, SWING, THTMAX,WNGLOO,XLFMAX 
COMMON/AERO/  CX,CY,DADTCMD,DCDX,DCLX,DTDTGEX,FLAP,FLPPCT,QS, 
SPDBRK,SPOILER,VKCAS,VKTAS 
PARAMETER  (ASU661.48,FPSKTS=1 . 687806, G»  32.174, 
RX^.295779S1306,TSLF=59.07ERO»0.0) 

COMMONKXDNST/  ASLSQRS,TWOOVR7 

CHARACTER  ENGGRP*3,FAILGRP*3,FAILMOD*5,FAILSr4,MVR*3,MA^iUVR*6, 
THRCRV*3,TKOTYPE*7 

COMMON/CHARV/  ENGGRP,FAILGRP,FAILMOD,FA]LST,MVR,MANUVR,THRCRV, 
TKOTYPE 

B  » WINGSPAN  HZ  =  HEIGHT  WING  ABOVE  TIRES 

AR  =  ASPECT  RATIO  CLALPH  =  DCLTDALPHA  piMENSIONLESS) 

HAGL  =ABSaUTE  ALTITUDE  OF  AIRCRAFT  TIRES  ABOVE  RUNWAY 
PARAMETER  (Pix3.141S92653S89793) 

HZBsHZ/B 
HB  ^(HZ-t-HAGLVB 

SIGMA  INTERPOLATION  FORMULA;  NACA  TN  D^70 
■EFFECT  OF  GROUND  PROXIMITY  ON  THE  AERODYNAMIC-  ETC 
GIVEN  BOTH  IN-GROUND  EFFECT  AND  OUT  OF  GROUND  EFFECT  AERODYNAMICS, 
THIS  FORMULA  PROVIDES  A  RATIO  BETWEEN  THEM  AS  A  FUNCTION  OF 
ALTITUDE  (AGL).  THE  COMMENTED  EQUATIONS  BELOW  SHOW  HOW  THIS  RATIO 
CAN  BE  USED  IN  THE  CALUNG  SUBROUTINE. 

COOUTs  CO  OUT  OF  GROUND  EFFECT;  COO = CD  AT  HAGL  =  0.0 

aouT »  a  OUT  OF  ground  effect;  ao = a  at  hagl = o.o 

SIGMAZ=  (1.0  -  1.32niZBy(1.05  +  7.4*HZB) 

SIGMA  »(1.0-1.32*HB)/(1.05  +  7.4*HB) 

SRATK)  =  AMAX1(SIGMA/SIGMAZ,0.0) 
a  =aOGE  +  SRATIO*(CLO-aOGE) 

CD  =COOGE-t-SRATIO*(CDO-COOGE) 

DCLGE  =  SRATIO*(CLO  •  aOGE) 

DCDGE  =  SRATIO*(CDO  -  CDOGE) 

PREDICTED  GROUND  EFFECT  BY  DR  E  K  PARKS 

WITHOUT  IN-GROUND  EFFECT  AERODYNAMICS,  THIS  EQUATION  PROVIDES  AN 
ESTIMATE  OF  THE  GROUND  EFFECT  INCREMENTS  TO  THE  OUT  OF  GROUND 
EFFECT  AERODYNAMICS. 

C  X  =25.94*HB-2  +  1.0 

C  DCDGE  =  ■8.0*CL“2/(ART»I"3X*2) 

C  DaGE  =  4.0*CL*CLALPH/(AfrPI-3^HB)*(X  -  SQRT{X)*CL)) 

RETURN 

END 
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Subroutine  FXXENG 


SUBRCXmNE  F}0(ENG(  Arr>aPHA>^MACH.NENG,PWRCODE,QS.VKCAS;(eiG, 

&  XIDLE,FE,FG,FN,WF,EPR) 

THIS  SUBROUTINE  CALCULATE  OR  PERFORMS  TABLE  LOOKUPS  TO  DETERMINE 
THE  NET  THRUST  AND  FUa  FLOW  FOR  THE  AIRCRAR.  THIS  SUBROUTINE 
AND  ITS  NAME  ARE  PROVIDED  BY  THE  USER. 


DOUBLEPRECISION  DTIME.DTIMEJ.TIME 
PARAMETER  (LUIN^,LUOUT-4) 

COMMON/CTRL/  DTIME.DTIMEJ.ICOUNT^OEBUG:KENG,UNENUM,LUMSG,NCOUNT, 
&  NEQ,NPAGE,TIME,TIMEROL 

COMMON/VECTOR/  HVECT.WECT 

COMMON/RUNWAY/  ABARGAOAABRK,BRAKMU.BRKFCTR,GAMMARW,GRW.HAGL. 

&  HCLEAR,HFLARE.HGEAR,HRUNWAY,IMU.RCR,ROLiMU,TIMEFLD, 

&  TIMEBRK.TIMEFLP.TIMESBK.TiMESPU(MU 

OOUBLEPREaSION  FPVTAS, GAMMAR,FPDIST, PRESALT, FPACCEL,DGOTR,VHAS, 

&  ROC,RKAIR 

COMMON/FPINTEG/  FPVTAS,GAMMAR,FPOIST.PRBALT,FPACCEL.DGDTR,VHAS, 

&  ROC,RKAIR(40) 

COMMON/ATMOS/  TEMPR, PRESS, RH0AFPS,VISC0SK.DELTASIGMA,THET/CDTEMPF 
PARAMETER  (ASL^I  .48,FPSKTS«1 .687806,G»  32.174, 

&  RX=57.29577951308,TSLF=59.0,ZERO=0.0) 

(XmOtVCOHSTI  ASLSQR5.TWOOVR7 

LOGICAL  AOAOFLG,BRKFUG,CLRHGT,ERRFLAG.FAILFLG,FLAPFLG.FPCTRG, 

&  GEFLAG,LGRaAG,UFrOFF,OVERaG,REVFLAG,REVRSE, ROTATE, 

&  RT0FUG,SBKFLAG,SPLRA6.SP00L,STEADY,TERMFLG.VECTRG. 

&  VFFlAG,WRmTR 

COMMON/FLAGS/  AOAOFLG,BRKFLAG,CLRHGT,ERRFLAG,FAILFLG,FLAPaG, 

&  FPCTFLG,GEFLAG,LGRFLAG,UFTOFF,OVERFLG,REVPJLG. 

&  REVRSE,ROTATE.RTOFLAG,SBKFUG,SPLFLAG,SPOOL,STEADY, 

&  TERMFLG,VECTFLG,VFFUG,WRITITR 

CHARACTER  ENGGRP^,FAILGRP^,FAILMOD*5,FAILSr4,MVR*3,MANUVR*6, 

&  THRCRV^,TKOTYPE7 

commona:harv/  enggrp,failgrp,failmoo,failst,mvr,manuvr,thrcrv, 

&  TKOTYPE 

COMMON/RACURV/  IOBUG,IEXTOR,KURNAM(99) 
C0MM0N/VALUES/VAUN(15),VFUEL(4),VIDLE(4),VUFT(2),VAER0(15) 
COMMON/TABLES^a  (172),TIDLE  (119),TAER007(72),TAER008(88), 

&  TAER009(79),TAER010(62),TAER011(91).TAER012(76). 

&  TAER013(64),TAER014(73),TAER015{74),TAER016<66), 

&  TAERO17{66),TAERO18(77).TAERO19{73),TAERO20{76), 

&  TAER021(76),TAER022{81),TAER023{74) 

LOGICAL  SPOOL 
REALATMARY(8) 

EQUIVALENCE  (TEMPR,ATMARY(1)) 

DATADVECTDT/10.0/ 

FE.  0. 

FG  =  20000. 

CALL  ATM0SPH(PRESALTATMARY) 
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IF  ((NCXXJKr.EQ.10.OR.STEADY)  MID. 

FXXBIG 

25 

&  (J()EBUG.EQ.8001  .OR  JDSUG.EQ.8888.0fl  JDEBUG.EQ.9999))  THEN 

FXXBfG 

26 

WRrrE(LUMSG,8001)  (VALJN(I).I»1.6), SIGMA 

FXXENG 

27 

8001  FORMATr  TAMBF, PRESALT, VTT,DTEMPF>kMACH,PWSEr, SIGMA  =  7. 

FXXENG 

28 

&  F10.1,2F10.0,F10.1.F10.3,F10.1,F10.3) 

FXXENG 

29 

ENDIF 

FXXENG 

30 

VALiN(1)  =  AMACH 

FXXENG 

31 

VAUN(2)»EPR 

FXXENG 

32 

VAUN(3)sPWRCODE 

FXXENG 

33 

C  CALLCURVEL(KURNAM(XX),TABLE,TABLE.VAUN,VFUEL, 

FXXENG 

34 

C  IDBUG,IEXTOaLUMSG) 

FXXENG 

35 

C**" 

FXXENG 

36 

C****  VECTORED  THRUST  ANGLE  REDUCTION 

FXXBIG 

37 

IF  (VECTaGJVND.(HAGLu6JWECTJV®.VKCAS.GE.WECT)) 

FXXENG 

38 

&  CALLTVECTOR(VTANGLE.HVECT,WECT.DVECTDT) 

FXXBG 

39 

IF  ((NCOUNT.EQ.10.OR.STEADY)JkND. 

FXXENG 

40 

&  (JDEBUG.EQ.8002.0R  JDEBUG.EQ.8888.CR  JOEBUG.EQ.9999))  THEN 

FXXENG 

41 

WRITE(LUMSG,8002)  VFUa 

FXXBG 

42 

8002  FORMATfFG.FE,WF.EPR  =  '.3Fl0.0.F10.3) 

FXXENG 

43 

ENDIF 

FXXENG 

44 

CORAM  sFE/QS 

FXXENG 

45 

FN  =  FG*COSD{ALPHA  +  AIT)  -  FE 

FXXENG 

46 

WF  =  4000. 

FXXENG 

47 

FXXENG 

48 

(T-  CAll  Spoaup  FOR  ROLUNG  TAKEOFFS 

FXXENG 

49 

If  (TKOTYPE.EQ.‘ROUJNG'  AND.  (.NOT.SPOOL))  THEN 

FXXENG 

50 

CALLSPOOLUP(O.O.nME.FLOAT(NENG)*XIDLE,XENG.SPOOL,XENG) 

FXXENG 

51 

ElSeiFrTKOTYPE.EQ.*ROLUNG’.AND.(  SPOOL))  THEN 

FXXENG 

52 

SPOa  =. FALSE.  ' 

FXXENG 

53 

TKOTVPE  =  ■SPOOLED' 

FXXENG 

54 

ENDIF 

FXXENG 

55 

RETURN 

FXXENG 

56 

C»IO 

FXXENG 

57 
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Subroudne  SPOOLUP 


SUBROUTINE  SPOOLUP(ENGNDX.TIiyE;(ENGO;(B«STRN,SPOOU(EN^ 

SPOOLUP 

1 

0**“  THIS  SUBROUTINE  DETERMWES  THE  RATIO  OF  THRUST  TO  TAKEOFF  RATED 

SPOOLUP 

2 

Cr**  THRUST  DURING  A  ROillNG  TAKEOFF  USING  SUBROUTINE  TABINT  AND  DATA 

SPOOLUP 

3 

C****  ARRAY  SPOOLA.  THISSUBR0UT1NEIS  JUST  AN  EXAMPLE  AND  DOES  NOT 

SpnoLUP 

4 

C““  APPLY  TO  ALL  AIRCRAFT. 

SPOOLUP 

5 

QMM 

SPOOLUP 

6 

DOUBLE  PRECISION  TIME 

SPOOLUP 

7 

LOGICAL  NOXSET, SPOOL 

SPOOLUP 

8 

REALSPOOLA(26) 

SPOOLUP 

9 

DATASPOOLA/  0.0.  2.0,  4.0.  6.0,  8.0,10.0.20.0,30.0,0.0,1.0, 

SPOOLUP 

10 

&  0.37,0.37.0.37,0.37.0.37.0.37.1.00.1.00. 

SPOOLUP 

11 

&  057,0.37.0.37,0.37,0.37.0.37,1.00,1.00/ 

SPOOLUP 

12 

IF(.NOT.(NDXSET))THEN 

SPOOLUP 

13 

Cr**  INOTAUZE  PREVIOUS  SPOOL  FACTOR.  SPOOLXJ,  START  TIME,  TIMEZ, 

SPOOLUP 

14 

Cr**  AND  BIGINE  LOOKUP  INDEX,  ENGNDX. 

SPOOLUP 

15 

NDXSET  s.TRUE. 

SPOOLUP 

16 

SPOOL  s. FALSE. 

SPOOLUP 

17 

SPOOLXJ  s99.0 

SPOOLUP 

18 

TIMEZ  sFLOAT(TIME) 

SPOOLUP 

19 

ENDIF 

SPOOLUP 

20 

TIMEDIF  =  FLOAT(TIME)  •  TIMEZ 

SPOOLUP 

21 

IF  (TIMEDIF.GEO.OJkND.TIMEDIF.LT.30.0)  THEN 

SPOOLUP 

22 

SPOOLXJ  sSPOOLX 

SPOOLUP 

23 

CALL  TABINT(TIMEDIF,SP00LX.ENGN0X,85.SP00U(1),INDEX) 

SPOOLUP 

24 

XENG  «  XBIGO  +  XB«3TRN*SPOOLX 

SPOOLUP 

25 

aSEIF{TIMEDIF.GT.O.OJVND.SPOOLXJ.EQ.SPOOLX)  THEN 

SPOOLUP 

26 

CT”  THROTTLE  TRANSIENT  COMPLETE.  RESET  NDXSET  FUG  AND  SET  STATUS 

spoaup 

27 

(r-  FLAG  TO  .TRUE. 

SPOOLUP 

28 

NOXSET  « .FALSE. 

spoaup 

29 

SPOOL  r.TRUE. 

SPOOLUP 

30 

ENDIF 

SPOOLUP 

31 

RETURN 

SPOOLUP 

32 

END 

SPOOLUP 

33 
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mu 


Subroutiae  SPOCHJ>NF 


SUBROUTINE  SP(X)LDNfKTIME;(BIGBlD;(B46TRN.SPOOiJ(^ 

THIS  SUBROUTINE  DETERMNES  THE  TOTAL  NUMBER  OF  B4GINES  RBMINING 
DURING  A  THROTTLE  CHOP  OR  FUa  CUT  USING  SUBROUTINE  TABINT  AND 
DATA  ARRAY  SPOOLA.  THIS  SUBROUTINE  IS  JUST  AN  EXAMPLE  AND  DOES 
NOT  APPLY  TO  ALL  AIRCRAFT. 


CHARACTER  ENGGRP^.FAILGRP^.FAIUylOD*5,FAILSr4,MVR*3,MANUVR*6. 

&  THRCRV*3  TKOTYPE*? 

COMMONOIARV/  EN(GK3RP.FAILGRP,FAILMOD,FAILST,MVR.MANUVR,THRCRV, 
&  TKOTYPE 

DOUBLE  PRECISION  TIME 
LOGICAL  NDXSEr.SPOOL 
REALSPOOLA(S6) 

DATASPOOLA/  0.0,  0.2,  0.4,  0.6,  0.8,  1.0,  1.2,  1.4,  1.6,  1.8, 

&  2.0,  2.5,  3.0,  4.0,  5.0,  6.0,  7.0,10.0,0.00,1.00, 

&  1.00,0.85,0.64,0.44,0.35,0.27,0.23.0.20.0.18,0.17, 

&  0.16,0.14,0.1 1 ,0.10,0.08,0.07.0.06,0  CE. 

&  1 .00,0.85,0.64,0.44,0.31 ,0.21 .0.15,0.12,0.10,0.08, 

&  0.07,0.06,0.04,0.03.0.02,0.01,0.00,0.00/ 

IF{.NOT.(NDXSET))THB4 

C““  INITIALIZE  PREVIOUS  SPOOL  FACTOR,  SPOOLXJ,  START  TIME,  TIMEZ, 

C****  AND  ENGINE  LOOKUP  INDEX,  ENGNDX. 

NDXSET  =  .TRUE 
SPOOL  ». FALSE. 

IF  (FAILST.EQ.1DIP)THEN 
ENGNDX«0.0 

ELSEIF  (FAILST.EQ.‘OFF')THEN 
ENGNOX»1.0 

ELSE 

WRITE(LUMSG,1001)  FAILST 

1001  FORMATC INVAUD  FAILST  PASSED  TO  SPOOLDNF,  FAILST  =  ‘JV5) 

ENDF 

SPOOLXJ  r99.0 
TIMEZ  =FLOAT(nME) 

ENDIF 

TIMEDIF  =  FLOAT(TIME)  -  TIMEZ 
IF(SPOOLXJ.NE.SPOOLX  JV4D.  XENG.GTJ(ENGEND)THEN 
SPOOLXJ  =SPOOU( 

CALL  TABINT(TIMEDIF,SP00LX,ENGNDX,18,2,SP00LA(1).INDEX) 

XENG  =  XENGTRN*SPOOLX 

ELSE 


C—  THROTTIE  TRANSIENT  COMPLETE.  RESET  NDXSET  FUG  AND  SET  STATUS 

C““  FUG  TO  .TRUE. 

NDXSET  =  . FALSE. 

SPOOL  =.TRUE. 

XENG  »XENGB4D 
ENDIF 
RETURN 
END 
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SPOOLDNF 

9 
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SPOOLDNF 

15 

SPOOLDNF 
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SPOOLDNF 

17 
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SPOOLDNF 

19 
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SPOOLDNF 

21 

SPOOLDNF 

22 

SPOOLDNF 

23 

SPOOLDNF 

24 

SPOOLDNF 

25 

SPOOLDNF 

26 

SPOOLDNF 

27 

SPOOLDNF 

28 

SPOOLDNF 

29 

SPOOLDNF 

30 

SPOOLDNF 

31 

SPOOLDNF 

32 

SPOOLDNF 

33 

SPOOLDNF 

34 

SPOOLDNF 

35 

SPOOLDNF 

36 

SPOOLDNF 

37 

SPOOLDNF 

38 

SPOOLDNF 

39 

SPOOLDNF 

40 

SPOOLDNF 

41 
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Subroutine  SPOOLDNR 


SUBROUTINE  SP(X)LONR(niylE;(ENQEND;(ENGTRN,SPOOU(ENG,miU^^ 

Cr**  THIS  SUBROUTINE  DETERMINES  THE  TOTAL  NUMBER  OF  ENGINES  REMAINING 
C*“  DURING  A  THROTTLE  CHOP  OR  FUEL  CUT  USING  SUBROUTINE  TABINT  AND 
C"“  DATA  ARRAY  SPOCLA .  THIS  SUBF.Ointf<E  IS  JUsT  aN  laAMPLE  AND  DOES 
Cr**  NOT  APPLY  TO  ALL  AIRCRAFT. 

QMM 

CHARACTER  BlGGRP*3,FAILGRP3,FAILMOO*S.FAILSr4,MVR*3,MANUVR*6, 

&  THRCRV*3,TKOTYPE*7 

COMMONA>URV/  BiGGRP.FAa.GRP.FAILMOD,FAiLST,MVR,MANUVR,THRCRV, 
&  TKOTYPE 

DOUBLE  PRK:ISI0N  TIME 
LOGICAL  NDXSET, SPOOL 
REALSPOOLA(56) 

DATASPOOLA/  0.0,  0.2.  0.4,  0.6,  0.8,  1.0,  1-4.  1.6,  1.8, 

&  2.0,  2.5,  3.0,  4.0,  5.0,  6.0,  7.0,10.0.0.00,1.00, 

&  1 .00,0.85,0.64,0,44,0.35,027,0.23.050,0.18.0.17, 

&  0.16,0.14,0.11,0.10,0.08.0.07,0.06,0.06. 

&  1.00,0.85,0.64,0.44,0.31,021.0.15,0.12,0.10,0.08, 

&  0.07,0.06,0.04.0.03,0.02,0.01 ,0.00.0.00/ 

IF(.NOT.(NDXSET))THEN 

C****  INITIALIZE  PREVIOUS  SPOOL  FACTOR.  SPOOLXJ,  START  TIME,  TIMEZ, 

C****  AND  ENGINE  LOOKUP  INDEX,  ENGNDX. 

NDXSET  ».TRUE. 

SPOOL  s. FALSE. 

IF  (FAILST.EQ.'I01E)THEN 
ENGNDX  s  0.0 

ELSEIF  (FAILST.EQ.‘OFF')THEN 
ENGNDX  s  1.0 

aSE 

WRITE(LUMSG,1001)  FAILS! 

1001  FORMATCINVAUDFAILST  PASSED  TO  SPOOLDNF,  FAILS!  »‘>\5) 

BIDIF 

SPOOLXJ  =99.0 
miEZ  =aOA!(TIME) 

ENDIF 

miBXF  =  FLOA!nME)  -  !IMEZ 
IF(SPOOLXJ.NE.SPOOLX  MS).  XENG.G!.XENGEND)  !HEN 
SPOOIXJ  sSPOOLX 

CALL  !ABINT(TIME0IF.SP00LX,BiGNDX.182.SP00LA(1  ),INDEX) 

XENG  XBiG!RN*SPOOLX 

FI.CiF 

C**“  THROTTLE  TRANSIBIT  COMPLETE.  RESET  NDXSET  FLAG  AND  SET  STATUS 
(T"  FLAG  TO  .TRUE 
NDXSET  ..FALSE 
SPOOL  ..TRUE 
XBIG  .XENGEND 
ENDIF 
RETURN 
BC 
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Subioiitiiie  CXNMU 


SUBROUTINE  GBMU{ViaGS,WT!StjaylAiN;(N^ 

C“”  THIS  SUBROUTINE  PROVIDES  THE  BRAKING  COEFFiaENT  OF  FRICTION. 

QMM 

DOUBLEPRECISION  DTIME.DTIMEJ,TIME 
PARAMETER  (UJIN^,LUOUT=4) 

COMMONKm/  DTIME,DTIMEJ,ICOUNr^DEBUG,KENG,UNENUM,LUMSG,NCOUNT, 
&  NEQ,NPAGE,TIME.TIMERa 

COMMON/RUNWAY/  ABARG>VOAABRK,BRAKMU,BRKFCTR,GAMMARW,GRW,HAGL, 

&  HCLEAR,HFLARE.HGEAR,HRUNWAY,IMU,RCR.ROLUylU,TIMEFLO, 

&  TIMEBRK,TIMEFLP,TIMESBK,TIMESPL.XMU 

PARAMETER  (ASL^1.48,FPSKTS«1.687806,G=32.174. 

&  RX«5729577951308,TSLF»59.0^RO=0.0) 

COMMON/CONST/  ASLSQR5,TWOOVR7 
COMMON/RACURV/  I06UG,IEXTOR,KURNAM(99) 
COMMON/VALUES/VAIJN(15).VFUEL(4),VIOLE(4).VUFT(2),VAERO(15) 
COMMON/TABLESm^EL  (172).TIDLE  (119).TAERO07(72),TAERO0e(88), 
TAERO09(79).TAEROl0(e2),TAERO11(91),TAERO12(76), 
TAER013(64).TAER014{73),TAER015{74).TAER016(66), 
TAERO17(66).TAERO18(77),TAEROl9(73).TAERO20(76). 
TAER021{76),TAER022(81).TAER023(74) 

C*^  F-XX  CONSTANTS 

(r**XMAIN  s  DISTANCE  MAIN  GEAR  TO  CG  LODMAIN  =  MAIN  GEAR  LOAD 
C;****  XNOSE  *  DISTANCE  NOSE  GEAR  TO  CG  LOONOSE=  NOSE  GEAR  LOAD 

Cr—YCG  .HEIGHT  OF  CG  ABOVE  GROUND  WTML  =WEIGHT-UFT 

XMAIN  .  925 
XNOSE  .54.92 
YCG  =14.00 

C****IMU  =  0  USE  CONSTANT  MU  MODEU  IMU  =  1  USE  MAXMU  CURVE 

IMU  =  2  USE  GENERIC  DRY  RUNWAY;  IMU  =  3  USE  GENERIC  WET  RUNWAY 
C**"  IF  IMU  =  0,  GENMU  IS  NOT  CALLED  BY  DERIVGR. 

IF  (IMU.EQ.1)THEN 

(T**  RANDOM  ACCESS  CURVE  MAXMU 

C  VAUN(13)  =  WTML*VICTGS*^1  .OE+OO 

C  VAUN(14)  =  RCR 

C  CALL  CURVEM  KURNAM{19).TAER019,TAER019.VAUN,VAER0(12), 

C  &  IDBUG,IEXTOR.LUMSG) 

C  BRAKMU  =  VAERO(12) 

C  IF{NCOUNT.EQ.10JINO. 

C  &  (JDQUG.EQ.7003.0R.JDEBUG.EQ.7777.0RJDEBUG.EQ.9999)THEN 

C  WRITE(LUMSG,7003)VAERO(12) 

C7003  FORMATCBRAKMU  =  '.F10.3) 

C  ENDIF 

B.SEIF(HUIU.EQ.2)THEN 
C**“  DRY  RUNWAY 

VKTGSX  =AMAX1((130.0-VKrGS)^RO) 

BRAKMU  =  (0  490  -  VKTGSX*0.00127) 
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& 
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GENMU 

15 

GENMU 

16 

GENMU 

17 

GENMU 

18 

GENMU 

19 

GENMU 

20 

GENMU 

21 

GENMU 

22 

GENMU 

23 

GENMU 

24 

oENMU 

25 

GENMU 

26 

GENMU 

27 

GENMU 

28 

GENMU 

29 

GENMU 

30 

GENMU 

31 

GENMU 

32 

GENMU 

33 

GENMU 

34 

GENMU 

35 

GENMU 

36 
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ELSEiF(IMU.Ea3)THEN  GBMU  37 

C****  WETRUNWAY  GBMJ 

IF(VKrGS.LT.  50.0)  BRAKMUs  (0.3630  •  0.0006737^KrGS)  GRIMU 

IF(VKTGS  .GE  50.0)  BRAKMU  >  (0.3063  •  0.0022300*vrTGS)  GEMU 

ENDIF  GBMU 

BRAKMU  »BRAKMU*8RKFCTR  GBIMU 

XMU  >BRAKMU  GENMU 

RETURN  GBMU 

END  GBMU 
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APPENDK  C:  MICROSOFT  FORTRAN  COMPILER  INFORMATION 


This  section  describes  the  internal  software  structure  used  to  generate  the  TOLAND  libraries  and 
executables  with  the  Microsoft™  FORTRAN  compiler  (version  5.1  or  later).  The  location  of  the 
subroutines  within  each  library  is  also  detailed. 


Executables  (.EXE  files)  are  generated  from  the  user  provided  source  code  and  the  following  libraries: 
CURVE.LIB,  PANDFQ  LIB,  and  TOLAND.LIB.  The  libraries  (PANDFQ  and  CLFRVE)  satisfy  external 
references  for  UFTAS  subroutines  such  as  TABINT,  HORP,  STASK,  and  other  random  access  curve  file 
subroutines.  The  TOLAND.LiB  library  contains  the  following  object  libraries:  LIBMAIN.OBJ, 
LIBTKO.OBJ,  LIBLND.OBJ,  and  LIBGRND.OBJ.  These  object  libraries  are  generated  from  their  source 
library  counterparts:  LIBMAIN.FOR,  LIBTKO.FOR,  LIBLND.FOR,  LIBGRND.FOR,  and 
LIBGENU.FOR,  respectively.  LIBGENU.OBJ  is  not  included  in  TOLAND.LIB.  Because  many  of  the 
generic  subroutines  v/ill  be  replaced  by  user  specific  subroutines,  any  generic  subroutines  within  the 
executable  file  must  be  explicitly  added  during  the  build  process.  Individual  generic  subroutine  object  files 
are  provided  for  this  purpose  or  a  user  may  generate  their  own  custom  general  user  object  library 
(LIBGENU.OBJ).  This  object  library  (along  with  TOLAND.LIB  and  user  TOLAND  source  file)  would 
comprise  the  program  list  for  the  executable  file  build.  Table  C-1  indicates  which  subroutines  are  contained 
within  each  library. 


TABLE  C-1 

SUBROUTINE  LOCATIONS 


LIBMAIN 

LIBTKO 

LIBLND 

LIBGRND 

LIBGENU 

INITIAL 

TAKOFF 

LANDNG 

ROLL 

LNICURV 

INTX 

DERTVAT 

STEDYST 

DERTVGR 

FORCEX 

INTG 

ERROR 

FLARENZ 

FXXAERO 

HALT 

APPROCH 

GEFFECT 

ATMOSPH 

FLARE 

FXXENG 

SPEED 

DERIVAL 

SPOOLUP 

INTERP 

ITRLND 

SPOOLDNF 

EXJDT 

SPOOLDNR 

DVDT 

GENMU 

DVTDH 

FRETRAC 

DADH 

GRETR,AC 

DDELTDH 

PITCH 

DSIGDH 

SPDBRAK 

ZEROX 

SPOIL 

TVECTOR 

All  common  blocks  for  the  TOLAND  program  are  contained  in  separate  files  with  the  .CMN  extension. 

External  references  satisfied  with  PANDFQ.LIB,  a  general  purpose  flight  dynamics  horary,  are  found 
within  four  subli!  raries.  LIBAERO,  LIBARRAY  LIBTRIG,  and  LIBUl  IL.  These  sublibraries  contain 
aerodynamic,  array  processing,  trigonometric,  and  miscellaneous  subroutines,  respectively. 

LIBAERO  conuins  UFTAS  routines  HORP,  MACH,  QORV,  SRHOS,  STASK,  and  VCMACH 
LIBARRAY  contains  UFTAS  routines  DIVC,  IDENl ,  INVERS,  and  NORM.  LIBTRIG  contains  routines 
COSD,  SIND,  and  TAND;  they  accept  arguments  in  degrees  instead  of  radians.  LIB  UTIL  contains  UFTAS 
routines  LBLSORT,  RDBR.E,  TABINT  and  WPSDIFF  WPSDIFF  is  a  new  name  fur  DUZ2  v/hich 
performed  wild-po  nting,  smoothing  and  differentiation  of  time  history  data. 
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Microsoft  FORTRAN  C-1 
Compiler  Information 


Program  compilation,  input  file  editing,  program  execution,  ou^ut  file  viewing  and  output  file  printing  are 
accomplished  with  dCOM  Directory  Commander™  macros.  The  macro  file  is  named  TOLAND.MAC  and 
should  be  stored  in  the  dCOM  subdirectory.  The  output  file  printing  macro  adds  a  filename,  date/time  tag 
to  the  print  spooler  and  also  formats  the  output  to  landscape  mode. 


C*2  Microsoft  FORTRAN 
Compiler  Information 
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APPENDIX  D:  NOMENCLATURE 


A{^>eiidL\  D 


Nomenclature  D-1 


ALPHAX  a  Dummy  variable  passed  to  functions  DGDT  and  DVDT  degrees  DGDT, 

ALPHMX  tx„u.  Maximum  angle  of  attack  limit  degrees  AIRBORN 

AMACH  M  Mach  number  -  -  -  -  ENGINE  SPEED 
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‘MACH’ for  determining  the  climb  speed  derivative 
with  respect  to  pressure  altitude,  dV,/dH 

CX  Cx  Force  coefficient  along  flightpath  -  -  -  -  AERO 

CY  Cy  Force  coefficient  normal  to  flightpath  -  -  -  -  AERO 

D\DT  da/dt  Time  rate  of  change  of  angle  of  attack  degree/second 
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Nomenclature  I>>3 


Pitch  rate  capability  loss  factor  in  ground  effect  -  -  -  -  AERO  PITCH 

(d6/dt)m„  Maximum  pitch  rate  during  landing  simulation  degrec/second  AIRCRFT  LND2 

5T,ui  Delta  temperature  from  standard  day  degrees  Fahrenheit  ATMOS  DATA 

8tM  Time  for  the  failed  engine  to  lose  thrust  seconds  ENGINE  DATA2 

Sifot  Time  tor  gear  retraction  seconds  GRETRAC 
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FLPPCT  %Flap  Flap  percentage  setting  percent  max  flap  AERO 

FLRDIST  Flare  ground  distance  feet 

FLT  #ni»iH  Flight  number  -  AIRCRFT 

FLTNDX  Flight  index  (user  definable)  -  -  -  - 

FP ACCEL  a,  Acceleration  along  flightpath  feet/sccond^  FPINTEG 
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Nomenclature  D-5 


Initial  gross  weight  pound-force  INITIAL  DATA 

Current  altitude  above  liftoff  point  for  takeoffs  feet  RUNWAY  APPROCH,  FLARENZ, 

GEFFECT,  GRETTIAC 

Current  altitude  above  runway  for  landings  feet  RUNWAY  APPROCH,  FLARENZ, 


FORTRAN  Synibol  Description  Dimension  _ Usage _ 

Name  COMMON  SUBROUTINE 
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ODIST  S,(M  Pre-Flare  ground  distance  feet  FLARE 

OVERFLG  (bovcr  Flare  height  over  obstacle  clearance  height  flag  -  -  -  -  FLAGS 

PLA  Zft,  Average  power  lever  angle  degrees  FXXENG 

PIAARY  Power  lever  angle  array  degrees  FXXENG 

PRESALT  h„  Pressure  altitude  feet  FPINTEG  ATMOSPH 
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SIGMA  o  Current  density  ratio  -  -  -  -  ATMOS 

SINKTD  Sink  rate  at  touchdown  feet/second  FLARENZ  LND 

SPDBRK  5rt*  Speed  Brake  deflection  degrees  AERO  SPDBRAK 

SPDBRKO  5,bko  Initial  Speed  Brake  deflection  degrees  INITIAL,  SPDBRAK  DATA2 

SPLFLAG  fb,p„ite,  Spoiler  flag  -  FLAGS  LND2 
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TOl,RNCF.  e,  Maximum  tolerance  constant  for  zero 

finding  routines  -  ITRLND,  ZEROX 

TSLF.  T,i  Standard  temperature  at  sea  level  degrees  Fahrenheit  CONST 

TWOOVR7  2/7  Ratio  of  two  over  seven  -  CONST 
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ABARG.39.D-1 
ACaEU17.28.41.D-l 
aoodmioa 
dnelognvity.  SeeG. 
fligtupth.  SeeI7AOCEU 
groondiolL  SeeACXEU 

AERO.  22. 23. 24. 2d.  28. 29. 30. 34.  D-2.  D-3.  D-*.  D-7. 

D-lO.D-11 

AFPS.42.D-1 

AIRBORN.  25. 26. 27. 28. 31. 32. 4Z  Z  4, 7 
AIRCRFr.  25. 26. 27. 29. 31. 3Z  33. 37. 1.  Z  4. 5. 6 
AIRSPED.  2Z  23. 24. 28. 30. 3Z  D-10.  D-1 1 
linpccd. 

■tmiiialriiiglmriilMtion^peed-  SeeVKABRK 
jpproach  ipeed.  SeeVKAPP. 
bnkmg  linpeed.  SeeVKBRAKE. 
caEboled  anpeed.  SeeVKCAS. 

.vM»«tMi«rfimhntit  SeeVCLMOUT. 
aigiae  £nlnre  aiRpeed.  See  VKFAIU 
equivalent  liiipeed.  SeeVKEAS. 
flap  fimit  ainpeed.  SeeVKHiiMX. 
fbq>  leaactkn  ainpeed.  SeeVKFLAP. 
borizootaL  SeeVHAS. 
rotatkia.  SeeVKROTAT. 
staitiiig.  SeeVKSTART. 
traeaiiqieed.  See  VKTAS.  VTAS. 
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flare.  SeeHFLARE. 
geariemctioiL  HOTAR. 

■Miimnm  SceHMAX. 
obatadedeanooe.  SeeHCLEAR. 
noway.  SeeHRUNWAY. 

AMACH.  2Z  23. 29. 35.  D-1 
Angle  of  Attack. 

anoaft.  SeeALPHA 
aentnaking.  SeeAOAABRK. 
three-point  attitude.  SeeAOA3PT. 
derivative  with  reaped  to  time.  SeeDADT. 
AOAOnjG.33.44.D-2 
AOA3PT.4,7.2Z33.D-2 
AOAABRK.4.  5. 15. 16. 38. 39.  D-2 
APPROCH.  2Z  23. 27. 31. 35.  C-1.  D-1.  D-5 
AR.2Z33.D-1 
AapedRatio.  SeeAR. 

ASU43.D-1 

ASLSQR5.43.D-1 

ATMOS.  23. 24. 26. 28. 29. 30. 4Z  D-1.  D-3.  D-7.  D-8. 
D-9.D-10 

AlMOSPa  29.  C-1.  D-Z  D-7 


atmosphere, 
den^.  SeeRHO. 
pressore  See  PRESS, 
lenqienture  (R).  SeeTEMFR. 
avenge  decdetation  during  ground  roll.  See 
ABARG. 


B.  See  wingspan. 
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Inking  coefficient  aelectortwiicfa.  SeelMU. 
BRAKMU.  5.  IS.  2Z  39. 40.  D-2 
BRKFCTR.  15. 18. 39.  D-2 
BRKFLAG.44.D-2 


CD.  Z  8. 17. 2Z  34. 49.  A-1.  A-3.  D-Z  D-3 

center  gravity  (as  a  function  of  MAC).  SeeOGPCT. 

CGPCT.7.2Z33.D-2 

CHARY.  2Z  23. 24. 28. 46.  D-3.  IM.  D-7.  D-9.  D-10 

CINraX.2ZSl.D-6.D-7 

CU  Z  8. 17. 2Z  23. 28. 34.  A-1.  D-Z  D-3 

CLALPH.2Z33.D-2 

rKmhn...«ttit«w  See  HCUMB.  HCLMOUT. 
CLRHGT.44 
.CMN  file  extension.  C-1 
coefficient  of  friction, 
aiiciaft.  SeeXMU. 
braking.  See  BRAKMU. 
rdling.  SeeROLLMU. 

CONFIG.  8. 2Z  33.  D-2 

CWST.  23. 24. 26. 28. 29, 30. 43.  D-Z  D-5.  D-8.  D-IO, 
D-12 

COSD.C-1 

CIRU  2Z  23. 24. 26. 28, 29, 30. 31.  D-3.  D-6.  D-7,  D-9 
curve  file  names  anqr.  SeeKURNAM. 
CURVEJJB.C-I 

CX,  34,  A-1,  D-2 

CY.  34.  A-1.  D-2 


DAI»l.30.C-l.D-5 
DADT.  17.D-2 

DADTCMD.  3, 4. 5. 8. 27. 39, 53. 54. 2 
DATA  7. 33, 34. 38. 39. 40. 4Z  46. 47,  D-Z  D-3,  D-4,  D-5 
DATAZ  7. 33. 34. 35, 38. 39. 46. 47. 51.  D-Z  D-3.  D-4, 
D-6,  D-7.  D-8.  D-9,  D-11.  D-12 
DCDGE.23.D3 
DCDIjGR.24.49.D3 
DCDX.Z17.18.34.D3 
DCLGE.23,D3 
DCLX,  Z  17. 18.34.  D3 
dOCM  macros,  C-2 
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dngooefficieat.  SeeCD. 
groand effect inaemeat  SeeDCDCE. 

Itdiiig  gar  increment.  SeeDCDLCHl. 
merincremeat  SeeDCDX. 

IX»LTra.30.C-l.I>-S 
DELTA.  42.  D-3 

delttteiqiefatiire from standanl day.  SeeDTEMFF. 
ddta  tone  fiv  intention.  SeeDTIME 
delta  time  for  engine  £uhire.  SeeDTFAIL. 
deasiQr  lado.  SeeSIQdA. 

KRIVAL.  20. 21. 28. 41.44.  A-1.  C-1.  D-1 

ISRIVAT.  20. 21. 29. 41. 44.  A-1.  C-1.  D-1 

DERIVGR.  20. 21. 29. 41. 44.  A-1.  C-1.  D-1 

DFLAPDT.  13. 24. 48.  D-3 

DGDT.  26. 30.  C-1.  D-1.  D-4.  D-5 

DGDrnL41.D-3 

DIST.28.41.D-3 

distance. 

ardistmce.  See  IHST,  ITIMST. 
ground  disianoe.  SeeGDIST. 

DISTMAX.3.11.D-3 
Dive  C-1 

DSKH>H.30.C-1.D-S 

DTDT.17.37.D-3 

DrrDTGEX.  24. 28. 34,  D-3 

DTDfrMX.14.22.33.D-3 

OTEMPF.  7. 17. 18. 29. 42.  D-3 

DfrFAIL.5.6,8.35.44.D-3 

DrrcaEAR.24.49.D-3 

DTIME,  3. 8. 17. 24, 28, 31. 32.  D-3 

DTIMEI.31.D-3 

DVDT.  26. 30.  C-1  J>-1.  D4.  D-5 

DVECTDT,13.24.50.D-3 

DVTDH.30,C-1.D-2.D-11 

DUZ2.  SeeWPCMFF. 


ENGGRP,  5. 6. 8. 17. 44. 46.  D-3 
ENGINE.  22, 23. 24. 26. 28. 29, 35.  D-I,  D-3.  IM.  D-7, 
D-9,D-11.D-12 

engine  fralnre  mode.  SeeFAILMCX). 
engine  frnhire  jpeed.  SeeVKFAIL. 
engine  fraloresMe.  SeeFAILST. 
engine  pressme  lano.  SeeEPR. 

EN(»4DX.23.D-3 

EPR.  8. 9. 23. 35. 47,  D-3 

ERRFLAG.29.44.IM 

ERROR.  21. 29, 33.  C-1.  IM.  D-6.  D-8 

•  F 

FAILFLG.44.D4 
FAnxatP.  5. 6. 8. 44. 46.  D-4 
FA1LMOD.5.6.8.46.1M 
FAILST.  5. 6. 8. 10. 17. 35. 44.  IM 
Mlnremode.  SeeFAILMOD. 
frnhne  stale.  SeeFAE^ST 


FE.22.23.35.A-1.IM 

PG.22.23,35.A-1.IM 

PGPCT,9.17.35.IM 

FINDV.24.26.30,IM 

FLAGS.  22. 23. 24. 26. 28. 29. 44.  D-2.  CM.  D-5.  IM, 
D-7.D-10.D-11 

FLAP.  3. 7, 9, 13. 17. 18, 21. 22. 24. 34. 44. 46. 47,  D-3. 
IM 

flap  deflectkm  percentage.  SeeFLPPCT. 
flap  limit  aiispeed.  See  VKFLPMX. 
flap  retmetian.  SeeRRETRAC. 

FLAPO.  17. 18. 23,  IM 

FLAPDAT.  23. 24. 48,  IM.  D-6.  D-7.  D-IO 

FLAPFLG,44.IM 

FLARE.  4. 14. 17. 20. 24. 27. 28. 31. 39.  A-2,  C-1.  D-I. 

D-5.  D-7.  D-8,  D-1 1 
flare  initiatioD  heighL  SeeHFLARE. 

FLARENZ.  14. 20. 21, 24. 27, 45.  A-3.  C-1,  D-1,  D-5.  D- 
D-6J3-8.  D-9.  D-9.  D-1 1.  D-12 
FLPARY.  13. 48.  D-4.  D-6.  D-7 
FLPPCr.  7. 9, 22, 34. 44,  IM 
FLT.9. 17.18,33.0-4 
FLTNDX.9.IM 

FORCEX.  7. 8. 9. 10, 13. 14. 20. 22, 24, 26. 28. 33. 34, 35. 

36. 47. 48. 49. 50,  A-1,  C-1.  D-1,  D-2 
fUgbtpatfa 

accelenlion.  See  ACCEL,  FPACCEL 
an^. 

indt^tees.  See  GAMMA, 
inmdians.  SeeGAMMAR. 
derivative  wiili  respect  to  time.  SeeDGDTR. 
distance.  SeeFPDIST. 

FPACCEL,  3, 17, 41,  D-4 

FPCrFLG.44.D-4 

FPIHST.41,IM 

FPINTEG.  23. 24, 28, 29. 30, 41.  D-3,  IM.  D-5.  D-7,  D-8 

FPSKTS.43.IM 

FPVTAS,26,30,41.D-4 

FRETRAC  21. 22,  C-I,  D4 

fiielflow.  SeeWFUEL. 

FXXAERO.  12, 13, 20, 22, 24, 28. 34. 38, 48, 49.  C-1 
FXXENG.  13. 20. 22, 23, 31, 35, 45. 50,  C-1.  D-6.  D-7 


G,43,D4 

GAMMA,  17.  D-5 

GAMMAPP.  4, 14. 27. 28.  37.  D-5 

GAMMAR,  26. 28. 29. 30. 41.  D-5 

GAMMARW.7.39.D-5 

GDIST.17.28,D-5 

CTARDAT.  23, 24, 49.  D-6.  D-7 

GEFFECr.  22, 23. 33.  C-1.  D-2.  D-3.  D-5 

(XFLAG.44.D-5 

GENMU.  15. 22. 23. 39. 40.  C-I.  D-1 1.  D-12 
glideslope.  See  GAMMAPP. 

(»ETRAC.  21, 24. 49,  C-1.  D-3.  D-5 
gross  tbnisL  SeeFG. 

user  aiyiistmeaL  SeePGPCT. 
gross  weight  SeeGWT.GWTO. 
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goundeifcct  SeeCXFFECT. 
groundapeed.  SeeVTGS.  VKTGS. 

mhumomoaolioL  SeeVKMCX} 
(atW.39.D-S 

GWT.  17, 28. 30. 33. 47. 54.  D-5 
GWTO.  7. 17. 23. 33.46.  D-5 


HAGL,  17. 23. 24. 28. 39. 44.  D-5 

HALT.  29.  C-1.  D-5 

headwind  oomponent  SeeVKWIND. 

HCLEAR.  3. 4. 7. 17. 18. 20. 21. 24. 28, 39. 44.  D-5 
HCLIMB.  3. 11. 12.  D.5.  D^.  D-10 
HCLMOUT.  3. 11. 12. 0-5.  D-9.  D-10 
HRLARE.  1. 4. 14. 17. 18. 20. 21. 24. 27. 28. 39. 44. 46, 
A-iA-3.D-5 
HGEAR.  11.39.49.  D-6 
HC«P.C-1 
HMAX.3.11.47,D-6 
HRUNWAY.  8. 28. 39. 41.  D-6 
HVCTARY.  13.  Sa  D-6.  D-7 
HZ.  22. 33.  D6 


I- 


lCOUNT.31,D-6 

n»UG.9.51.D-6 

IDENT.C-1 

IFlAP.48.D-6 

KXAR.49.DA 

IMU.  15. 39. 46, 47.  D-6 

INICURV.2.22.51.C-1 

INmAL.  23.  Cl.  D-1.  DA.  D^ 

INIBG.  23. 24. 28. 41.  Cl.  D-1,  D-3.  DA,  D-11 
integnlioo tfep size.  SeeDTIME. 

INTERP.  30.  C-1.  D-12.  D-13 

INTG.  28.  C-1.  D-3,  D.5.  D-1 1 

INTX.  2a  24. 28.  C-1.  D-1.  D-3.  D-7.  DA.  D-9 

lNVERS.C-1 

rTRLND.  26. 27. 29.  C-1.  D-3.  D4.  DA.  D-10 
IVBCT.50.DA 


— X 

JDEBUG.9.31.DA 


— K— 

KENG.31.DA 

KURNAM.51.DA 


Ininggezrielnction.  SeeGRETRAC 
elliliide.  SeeH(XAR. 
Isodfaygeardnc.  SeeDCDLGR. 
LANWG.  19. 2a  24. 37.  C-1.  D-1 
LBLSORT.C-1 


LGRARY.49.DA.D-7 
L(»1FLAG.24.44,DA 
UBARRAY.C-l 
LIBAERO.C-1 
LIBCHlND.C-1 
UBGENU.C-l 
UBLND.C-1 
LIBMAlN.C-1 
LlBTCO,C-l 
UBlWG.C-l 
UBUimC-l 
LIFTOFF.  3. 44.  DA 
lift coeffideat.  SeeCL. 
gronndeffiKtincretneaL  SeeDCLGE. 
nser  incremett.  SeeDCLX. 

UNENUM.  31.  DA 

LND.  7. 14. 37. 38. 39. 46.  D-1,  D.5.  DA.  D-1 1 
LND2, 7. 14, 33, 45. 46.  D-3.  DA.  D-12 
LOADING.  9. 22. 33.  DA 
logical  units  for  input  and  ompia. 
carve  file.  SeeLUCURV. 
inpoL  SeeLUIN. 
mrtHgTf.  SeeLUMSG. 
output  SeeLUOUT. 

LUCURV.51.DA 

LUIN.29.31,DA 

LUMSG.9.23.29.31,DA 

LUOUr.9,24.29.31.D-7 

— M— 


MACH  (subroutine),  C-1 
Mach  number.  SeeAMACH. 
manuever.  See  MANUVR,  MVR. 
MANUVR.  24, 46, 47,  D-7 
mTiTTMim  See  VKEND. 

manmnm  altinide.  SeeHMAX. 
maghnam  See  IHSTMAX. 

MAXSIZF.48.D-7 
MAXSIZG,49,D-7 
MAXS1ZV.50.D-7 

miniiiMim  mntml  gmnntiipeed  See  VKMCG. 
minininm  inlerval  takeofb,  1. 12 
MVR,  47,  D-7 


namelists 
DATA,  7 
DATA2,7 
LND.  7 
LND2.7 
ROL.7 
ROL2,7 
TKO,7 
TK02,7 
TKOARY.7 
NASATOLAND.  I 
NOOUNT.  31.  D-7 
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NENG.22.3S.D-7 
NBQ.28.32.D-7 
nettlnisL  SeeFN. 
NORM.C-1 
NPA(^31.32.D-7 


obstacle  cleanmceiieigfaL  SeeHCLEAR. 
OVERHjG.44.D-7 


PANDPQ.LlB.C-1 

PITOT,  2, 24.  C-1,  D-l,  D-2.  D-3.  D-7 
pilch  anitude.  SeeTHETAF. 
iMximum  SeeTHTMAX 
racitioa.  SeeTHTROT. 
toknnoe.  SeeTHTTOL 
PRESALT.  29. 41,  D-7 
PRESS.  42.  D-7 

pressure  ahitiide.  SeePRESALT. 
pressure  ratio.  See  DELTA, 
psopulsivedrag.  SeeFE. 

PWRCOOT,  5, 6. 9. 22. 23. 35.  D-7 


QORV.C-1 
QS.  23. 29. 34.  D-7 


R 


nmwqr slope.  SeeGAMMARW. 
RX.43.D-8 


SBKFLAG.4S,D-8 
SIGMA.  42.  D-8 
SINKTD,  4, 14. 27. 28. 46.  D-8 
SIND.  C-1 

SPTORAK.  24.  C-1,  D-l,  D-3.  D-8 
SPDBRK.  24. 34,  D-8 
SPDBRKO,  9. 23.  D-8 
SPEED.  29.  C-1.  D-l,  D-5.  D-7.  D-11 
speed  of  sound, 
sea  level  SeeASL 
units  in  feel/sec.  SeeAFPS. 
qieedbnkes.  See  SPI»RAIC..  SFDBRK. 
SPLFLAG.14.4S.D-8 
SPfML,  21. 24.  C-1.  D-l,  D-3.  D-8 
SPCRLER.  1. 4. 5. 14, 16. 21. 22, 24. 34. 40. 45.  D-l.  D-3. 
D-8,D-10 

spralen.  See  SPOT..  SPCXLER 
SPOOT.  5. 6. 8. 15. 23. 35. 38. 45. 46.  D-4,  D-8,  D-9,  D- 
10 

SPOOLDNF.  5, 6. 21, 22, 23.  C-1,  D-8.  D-9.  D-12 

SPOOLDNR,  5. 6, 21, 22, 23,  C-1,  D-8.  D-9,  D-12 

SPOOLUP,  9, 21, 22, 23. 35,  C-1,  D-4.  D-7,  D-8,  D-9,  D-12 

SRHOS.C-1 

STASK.C-1 

STEADY.  45 

STEDYST,  4. 20. 24. 25, 26.  C-1,  D-l,  D-4,  D-5 
SWING,  22, 33, 34,  A-1,  A-3,  D-8 


RACURV,  22. 23. 30. 51.  D-6 

nieofclintb.  See  ROC.  ROCFPM. 

rating  code.  SeeRC 

RC,  9. 22. 47,  D-7 

RCR,  15. 39, 46. 47.  D-7 

RDBFLE.C-1 

REVFLAG.9.44,D-7 

REVNDX,35,D-7 

REVR^44.D^ 

RH0.42,D-8 

RKAlR,41.D-8 

RKOTND.41.D-8 

ROC.  17. 41.  D-8 

ROCFPM.  29. 37.  D-8 

ROU  7. 15. 39. 40. 46. 47.  D-2.  D-6.  D-7 

ROL2, 7. 15. 38. 39. 40. 46. 47.  D-2.  D-9.  D-10,  D-l  1 

ROTL.  20. 24. 28. 31. 44, 52.  Cl.  D-l,  D-5.  D-8 

ROLLMAX.3.1I.D-8 

ROTLMU.5.9.39.D-8 

ROTATE,  44.  D-8 

rotation  ainpeed.  SeeVKROTAT. 

RTOfLAG.44.D-8 

RUNWAY.  23, 24, 28. 39,  D-l.  D-2.  D-5.  D-6.  D-7.  D-8. 

D-10.  D-12 

railway ooKilioa reading.  SeeRCR 
ranway  pressure  altitude.  SeeHRUNWAY. 


— T— 

TABINT,23.C-1 
TABLES.  22, 23. 51 

TAKOTF,  19, 20, 24. 33. 40, 44, 48, 49, 50.  C-1.  D-l 
tempesatuie  ratio.  See  THETA. 

TAND.C-1 
TEMPR,42.D'9 
TERMFLG,45.D-9 
TERMMSC.29.D-9 
THETA,  42,  D-9 
THETAF,  3. 17. 37,  D-9 
THRCRV,9,22.47,D- 
THRUST,  8. 17. 23, 26, 28, 35.  D-9 
gross  tfarasL  SeePG. 
nettlirosL  SeeFN. 
propulsive  drag.  SeeFE 
tftt^  incidence  angle.  See  ATT. 
tfarast  reversing.  See  REVFLAG,  REVNDX,  REVRSE 
sndTIMEREV. 

thrust  vectoring,  2, 7. 21, 45, 50,  D-10.  See  also 
TVBCTOR 

THTCLM.3.11.47.D-9 
THTFLY,3.11.D-9 
THTMAX.  3. 22, 33, 37.  D-9 
THTROT.3, 11.47.D-9 
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THrroL.3.11.D4 
TIME.  17. 23. 28. 32. 

T1MEBRK.  4.  S.  IS.  39. 40. 44.  D4 
T1MEFU).4(X  D-9 
T1MEIU».4.S.  1S.40.D4 
TIMEIDL.S.IS.D^ 

TMEMAX.3.11.I>« 

T1MEREV.4.S.1S.D-10 

T1MEROL.32.44.D-10 

’nMESBK.4.S.  IS.  16.4ai>-10 

T1MESFL.  4.  S.  16^  40.  D-10 

TKO.  7. 11. 38. 39. 46.47.  D-6.  D4.  D-11 

TK02. 7. 11. 38.47.  D-3.  D-S.  D^,  D4.  D-11 

HCOARY.  7. 13. 47. 48.  Sa  IM.  I>6.  D-10.  D-1 1 

TKOTYPE.  12.47.  D-10 

TOLANDUB.C-1 

aUlade.  SeeHRUNWAY. 
flnknte.  SeeSINKlD. 

TSLF.43.D-10 

TVECrat.  21. 24.  C-1.  D-3.  D-1 1 

TWOOVR7.43.D-10 


— V— 

VALUES.  22. 23.  SI 

VCLMOUT.3.11.12.D-10 

VCMAOLC-l 

VBCIDAT.  23. 24.  SO.  D-6,  D-7.  D-11.  D-12 

VECTFLa45.D-10 

VECrat.23 

VFFLAG.44.4S.D-10 

VFLPARY.  13. 48.  D-6.  D7.  DIO 

VHAS.41.D10 

>Booriqf(tiiienMticX  SeeVlSOOSK. 

VISOOSK.42.D11 

VKABRK.4. S.  IS.  16. 38. 39. Dll 

VKAFP.  4. 14. 27. 38. 46.  D1 1 

VKKIAKE.  4.  S.  16. 38. 44. 46. 47.  D1 1 

VKCAS.  17. 22. 23. 29. 34. 44.  Dll 

VKEAS.29.D11 

VKEND.3.12.38.D11 

VKFAIL,  S.  6. 9. 1 1 . 38. 40. 44. 4S.  47.  D 1 1 

VKFLAP.12. 13. 24. 38. 48.  Dll 

VKFLFMX.12. 13.38.48.D11 

VKMOG.  S.  6. 9. 17. 38.  D1 1 


VKROTAT.3. 11.38.47.D11 
VKSTART.  12. 38. 47.  Dll 
VKTAS.17.29.34.D11 
VOQS.17.23.28.29.D11 
VKWIND.  8.38.  Dll 
VTANGLE.  13. 24. 3S.  Dll 
VTAS.3a41.Dll 
VTASr.41.Dll 

WCTARY.  13.  Sa  D6.  D7.  Dll 
VWIND.28.29.38.D11 


—w— 

WFUEL.23.28.3S.D11 
wmd^eed.  See  VKWIND. 
wii«9ea.28.33 
WNGLOD.33.D12 
WPSDlFP.C-1 
WRIITTR.  14.4S.D12 


— X— 

XENaS.6. 10. 17. 23. 26. 35. 44.  D12 

XENGFLD.  a  10. 3S.  D12 

XENGOUT.  22. 3S.44.  D12 

XIIX£.8.22.36.D12 

XLF.17.24.37.D12 

XLFI.37.D12 

XLFMAX  22, 27. 33.  D12 

XMA1N.23.D12 

XMIL.8.36.D12 

XMU.S.17.40.D12 

XNOSE.23.D12 

XNUARY,  13,  sa  D6.  D7.  D12 


— Y— 

YCG.23,D12 


— z— 

ZER0.43.D13 

ZEROX.  26. 30.  C-1.  Dl.  D2,  D4.  DS.  DIO 
ZFN.3aD13 
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